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The Texas Instruments Home-computer User’s Group, known as 
TISHUG is a ‘non profit, self supportive group of Texas 
Instruments computer owners and users. Information regarding 
membership and payment of dues’ should be directed to the 
Secretary, address below. 
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L_IBPRARY SERVICE - 
The Sydney News Digest (SND) is ee CLUB CO-ORDINATOR: 
the official newsletter of I] TISHUG operates a Public Domain Peter Varga 022897025 
TISHUG, and whilst every effort || Software Library, containing || HON. SECRETARY: 
is made to ensure the fl programs written by TISHUG John Robinson 028480956 
correctness and accuracy of members and from other user TREASURER: 
information contained therein, groups as well as miscellaneous Terry Phillips 02797631 
be it of a general, technical, |} public domain sources. LIBRARIAN: 
or programming, nature, — no These programs are made Terry Phillips O27976213 
responsibility can be accepted || available to members in two || ASTNT LIBRARIAN: 
by TISHUG as a result of the || ways:- Andrew Nutting 024741853 
applying of such information. 1> by monthly issue — a || FOUNDER/EDITOR: 
selection of programs {| Shane Andersen (W)02291631 
is made available at PUBLIC RELATIONS: ; 
THE NEWSDIGEST— general meetings for a ! Cris Ryan 028480480 
The SND is published eleven production/media cost ||’ ADVERTISING: 
times per year (no January fee. . Faul Mansell 026218397 
edition), by voluntry 9 staff, (See TISHUG SHOP column || PROGRAMMERS CRISIS LINE: 
from material provided by group elsewhere for details Graeme Holliss 02992229 
members, other user-groups) and of releases). MUSIC CO-ORD: 
other related sources. , aS a reward for members Russel Welham 043924000 
contribution to the || EDUCATION CO-ORD: 
Contributions and all activities of TISHUG by Peter Lynden 026357841 
correspondence (other than (a) submission of an 
membership) should be addressed original program {own 
to the EDITOR, LIBRARIAN, work) members recieve 
ADVERTISING, etc., and three programs of 
submitted at the group meetings their choice, and, 
or posted to the appropriate submission to SND, or ME (EDITOR) 
person at the general eer tee LY 38 the |! RUSSELL WELHAM (MUSIC) 
address, below. comm tkee may other~ |! eRRY PHILLIPS (SHOP/REVIEWS) 
nate Getermi©s | SOHN ROBINSON(J.R's PAGES) 
Copy for publication may be programs OF ice JENNY(Younger Set/under 18) 
typed, hand printed, or be on copy tputer’S choice || DETER SCHUBERT (DOW REVIEW) 
tape or diskette media as files will be made ROBERT & CHRIS(TECHO TIME) 
suitable for use with TI-WRITER available. S . NICHELSEN (PROGRAM) 
(ie, DIS/FIX 80 or DIS/VAR 80). 
Please include sufficient Library is painteined GARRY CHRISTENSEN (PROGRAM) 
information to enable the files |[/0? 2 voluntry basis, nol) MCGOVERN (EXTENDED TUT) 
—£5 individaul _ requests for 
to be read —tilename, etc. DEREK MEGGINSON (PROGRAM) 
Persons wishing to contribute software Cother than for _ the BUG BYTES (PROGRAMMING) 
on ai regular basis should || @2eve reasons) can be honoured 
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public domain word processor 

rogram. The co deadline 

for an issue is. the first COURTESY TO YWYOuUR 
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weetng date) prior to the rsonth 

of publication. When you strike a programing 
problem, require information, 

Any material, written or Jior just want to chat (modem = or 

electronic, submitted to SND or j[/otherwise) please look at the 

Library Service is to be l}clock before you pick up- the 

considered TISHUG property and j|’phone! And always ask if it is 

to be used at the committee’s j}a convenient time for your 

discretion. call. 


CONTRIBUTORS = 
RAY SPARGO(TYPING/REVIEW) 
JIM HOWARD(ART DEPT.) 


IMPORTANT TISHUG ADDRESSES: — 


General address Membership address Monthly Meetings 

(for all letters first Saturday 

except nerpbership) of the rxwonth 

The SECRETARY, 

TISHUG, TISHUG, 

PO BOX 595, PO BOX 149, St. John’s Hall, 

MARRICKVILLE, PENNANT HILLS, _Victoria Street, 
B\NSW. AUSRALIA, 2204. NSW, AUSTRALIA, 2120. DARLINGHURST. 


This page will have to second 
as my EDITORIAL, as I have 
just run out of pages for this 
issue. I hope that you like 
what we have put together for 
you. 

GREAT NEWS ABOUT THE NEXT 
CLUB MEETING...Once again, it 
is that time of the year, when 
we conduct yet another FULL 


.DAY TUTORIAL/WORKSHOP. 


However, we are going to be 
doing some things a little 
different this time. 

Firstly, you won't have to 
cart all of your computer gear 
o this one, infact, all you 
will need to bring are the 
following items only... 


(1) YOUR MEMBERSHIP CARD. 
Only club members are 
permitted to attend these 
tutorials, as a treat for just 
having you in this club. Since 
many families have only one 
card, make sure that some one 
in your family remembers to 
bring the card with you. 


(2)PEN'S AND NOTE PADS, 
We can't expect you to 
remember all of the day's 
activities. 


(3)YOUR ENTRY FEE/TICKET. 
Entry to this full day 
Tutorial will only cost each 
person, $2.50. Unless you have 
one of the enclosed tickets 
which will entitle the bearer 
to a .50c reduction on entry. 

hose tickets will have a 
umber printed on them, for 
sucky DOOR PRIZES. 


(4) YOUR LUNCH. 
We will provide the drinks, 
the hall, the tutors, the 
classes, and a 32 PAGE BOOK, 
valued at $10 Retail (and 
infact will be sold at that 
price later on for those who 
can't get to this fun day of 
learning. 
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THIS BOOK... 
This book includes 16 


programs, 10 lessons on 
programing, A colour-in for 
the kids, plus Technical 
information. It features such 
items. as BIT MAP MODE and 
ASSEMBLY PROGRAM, SPELLING 
TUTOR with TE2, PSEUDO MEMORY 
EXPANSION, and much much more. 
Each person will receive one 
of these books when you enter 
the hall, plus a name tag, so 
you can better get to know 
each other. 


THE PLACE AND TIME... 
St.Johns Church HALL, VICTORIA 
STREET, DARLINGHURST (see map 
on the inside front cover). 

The time...9:30am on the dot, 
through to 5pm. 

SOME OF THE TUTORS WILL 
INCLUDE: PETER DAY (Basic), 
MARK NIELSEN (Files in 
programs), ROSS HARDY (Flow 
charting/program design and 
System Analysis)RUSSELL WELHAM 
(Music), plus classes on EXTEND 
-ED BASIC, ASSEMBLER, and more. 


Each class or workshop will be 
repeated after lunch break at 
12 noon, and some of the 
classes may be repeated more 
than one, depending on the 
subject matter and 
involvement. We are will have 
our new TECHNICAL TEAM there 
in the connecting smaller hall 
to give you advice on 
expansion of your gear, and a 
questionare will be made 
available for you to fill out, 
so they know what your future 
needs may be. We will have 
some other treats for you as 
well. 

Only 250 people will be 
able to attend this activity, 
so we ask you to be early to 
ensure that you're able to ; 
attend this FULL DAY TUTORIAL 


—_ 
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And now to the COMMUNICATORS. 


The deadline for entries to be 
submitted for our very own BBS 
program closes on the ist of 
June, and your last chance to 
win both the $100 cash prize 
and any 8 programs of your 
choice from the Software 
Library. Hopefully, by the 
time this publication gets to 
you, we will have had the new 
telephone line installed, and 


by mid to late June, our BBS 


will be ready to go. News of 
this will be shared with you 
in the July issue on this SND. 


PERTH GROUP (TI.UP) has 
already got their BBS 
underway, and if you would 
like to phone it, the number 
is (09) 2718642 any Sunday 
from 12 noon to 12 mid-night. 

To activate their system, 
firstly type <CTRL> A to start 
it. At present, I believe, 
that you are unable to 
Gown-load any software, but 
you can leave messages and 
read their News etc. 

We hope to be able to do 
that, plus down-load programs. 
With the Perth TI BBS called 
"THE FOUNTAIN" you will be 
give a 15 minute time limit. 
With ours, it is hoped that 
you can stay on and read & 
place Electronic Mail, read 
and add News, then down-load 
one program per call. You can 
phone the system as many times 
as you like, but we have to 
make the above provisal, so 
thathungry members don't clog 
the line, when others may also 
wish to get on the system. For 
the first couple of months, we 
will probably run the system a 
few days a week. We'll tell 
you more about that next month 
also. 

BI BI 4 NOW, 

TEXPAC/SYSOP (SHANE) 

881 on MiCC. 
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Hi! there ..We must first of 
all thank Michael Ford for 
Gonating the cost of printing 
the Third Birthday cover in 
colour last month. I am sure 
you will all agree that the 
previous newsletter was our 
best to date. 


The automatic answering 
service has now been installed 
at my home and I look forward 
to hearing from you during the 
day when my phone won't be as 
busy as it is in the evening. 
I am blessed with three 
teenagers who seem to spend an 
interminable amount of time on 
the phone, which only adds to 
the congestion! I will be able 
to listen to your messages 
remotely and I am sure this 
new facility will be of great 
benefit to our growing 
membership. 


I have received some queries 
regarding the expiry dates 
shown on club membership 
cards. The confusion seems to 
centre around the fact that 
newsletters are mailed in the 
month before the month printed 
on the newsletter. If you 
joined in April the first 
newsletter you received would 
have been the MAY issue, which 
was mailed during the last 
week of April. Your membership 
card is valid a full 12 months 
and expires the end of March 
1985. Still confused? Don't 
worry I can assure you we 
won't short change you. 


Other problems in the 
administration of the 
membership is with renewals. 
In theory if you renew late 
you should be regarded as a 
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new member and be charged th 
joining fee. Such a policy is 
rather harsh so your committee 
has decided to levy a $2.00 
late payment fee thereby 
providing some incentive to 
pay on time. Prompt payment of 
membership dues keeps the 
workload to a minimum. 


1 young 
people visit the TISHUG stand. 
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The Ryde Educational Computer 
Fair was held on April 13th 
and 14th. As usual Colin Waite 
of Texas Instruments Australia 
kindly loaned us a Computer 
and Computerwave Pty. Ltd. a 
colour monitor, TI LOGO 2, 


fe Sg ee 


Before we allowed them to play 
a game they each had to pass 


PLATO, and a demonstration an individual test set by 
cartridge. Don Dennis of PLATO, who tested either their 
IMAGIC provided copies of the reading or mathematical 
company's latest cartridge skills. The NAVARONE 


Cartridge expander came in 
handy here enabling us to 
Switch from one cartridge to 
the other without any 
hassles. 


software MICROSURGEON and 
DEMON ATTACK. 


. Special thanks 
to Terry Phillips and Chris 
Ryan for their help in manning 


The show was well attended but 
the only other User Group 


the stand. We didn’t see very there was MICROBEE. Since it 
many of our members at the was an Educational fair the 
TISHUG stand but there were various companies holding 
some, including David and Elly school contracts were well 
Wignell who showed up while represented. It is a great 

our cameraman was there. From pity TI did not crack the mass 
the other photographs you can ee 
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school market. They do however 
seem to have had more success 
in schools for handicapped 
children. TI's expertise with 
Speech Synthesis will no doubt 
have helped. One of our newest 
members is Ted Harvey, a 
teacher at Newcastle Technical 
College. The unit where Ted 
works has a classroom fitted 
out with TI equipment and it 
is being used by the Visually 
impaired, the deaf, the 
Physically and Mentally 
Disabled. A lot of interest 
was shown in the 64k printer 
buffer which had been loaned 
to us by COMPUTERWAVE. This 
piece of equipment is 
extremely useful when printing 
files created with TI-WRITER. 
Cursor control returned 
instantaneously even when some 
very long files were loaded. 


Do you know what a GROM BUSTER 
is? No its not a modern day 
gangster set up to guard an 
illegal establishment but a 
rather clever device being 
manufactured by NAVARONE 
INDUSTRIES. This little box 
‘plugs into the I/O port of the 
console. A simple push of the 
button will transfer control 
to any third party cartridge. 
The device intercepts the 
computer's internal operating 
system, and allows owners of 
TI 99/4A consoles, which have 
been fitted with the Version 
2.2 operating system to run 
ROM or EPROM based cartridges 
manufactured by third parties 
not licensed by TI. These 
manufacturer's include ATARI, 
FUNWARE,NAVARONE, ROMOX, and 
others using EPROM based 
cartridges. Chris Ryan has 
purchased NAVARONE'S 
DISK-FIXER module. I am 
looking forward to reading his 
review on this as I have been 
losing data on some of my 
disk's recently. That reminds 
me data loss problems can 
often be traced to cigarette 
smoke. AS I am a non smoker 
this isn't my problem but I 
know of one company that had 
been experiencing a tremendous 
amount of trouble with 
information disappearing from 
disks. The problem completely 
disappeared overnight after 
smoking had been banned in 
their offices. The 
microscopic particles in 
Cigarette and cigar smoke 
descend on the surface of the 
disk where the READ/WRITE 
heads are located, destroying 
the valuable data. Another 
source of data loss can be 
paper clips which are 
dispensed in one of those 
containers with a magnetic 
rim. If one of thoses clip 
fall on to your disk then it 
is goodbye to your data. I 
can verify this fact from 
painful experience. 


We had a very well attended 
May General Meeting- 280 


with Shane Andersen and his 
robots providing the 
entertainment. After the 
meeting the soldering iron 
wizards of the club met and 
have now formed a Technical 
sub-committee. Details are 
Given elsewhere in this 
newsletter. Apparently some 
of members think we should 
change our club logo. If you 
agree let us know. Some 
interesting designs have 
created by Thang Nguyen. 
are shown alongside this 
column. 


My little problem on prime 
numbers has created quite a 
bit of interest. The fastest 
solution so far received has 
been written by Joshua 
Velling. In his program using 
console BASIC the first 100 


less than 2 minutes. The 
slowest solution has been 
received from John Chambers . 
His program takes about 36 
minutes to run in Extended 
Basic. The author of the most 
efficient program will be 
announced next month. 


the entries received for the 
April monthly competition. 
The top three will be 
Gemonstrated at the June 
meeting and members attending 
will vote with their 
applause. 


This month I would like to 
receive routines for 
protecting a program with a 
password. 


Newsletters returned by 
Australia Post. The club is 
charged additional postage 
fees for this service 


to let us know at least two 
months in advance of the time 
you change an address. We 
print address labels two 
months ahead, hence the long 
lead time for corrections. 


For those members with modems 
you can contact the Secretary 
of the club on the The 


people sat around in a circle 


been 
They 


prime numbers are displayed in 


Your Committee will be judging 


I am still having far too many 


therefore I appeal to you all, 
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Australian Beginning by typing 
in "TISHUG" when the prompt 
asks for the username. 


Running out of memory.... 


Happy Computing, 
Fee . 


John Robinson. 
Hon. Secretary. 


HI, COMPUTER LOVERS !!!!! 


YOU GOT YOUR DUST COVERS YET? 


I supply quality custom made, 
anti-static treated dustcovers 
which will enhance the looks 

of all your computer hardware. 


PRICES FROM AS LOW AS $4.00 


INCLUDES: 


*Separate Consoles $6.00 


*Cassette Recorder $4.00 
(National or equivalent) 


*T.V. Monitor $9.00 


*Printers $8.00 


*Peripheral Expansion Boxes $9 


*Disk Drive Units $5.00 


*Speech Synthesisers $4.00 


Other prices on enquiry, 
please ring YVONNE on 4986811. 


Can be obtained from 
TI.S.H.U.G. at monthly 
meetings or direct from: 


NANBRANA PTY. LTD; 
38 GLOUCESTER AVENUE, 
WEST PYMBLE 
N.S.W. 2073 


Send cheque or Postal Order 
stating covers required. (If 
not listed above, give name of 
equipment or dimensions to 
ensure fit). 


We welcome our new columnist 
to the Sydney NEWSDIGEST. This 
will be a continueing feature 
set of articles, to ensure 
that you get the best out of 
your Extended Basic. Tony is a 
member of the Newcastle group, 
and we understand he has been 
a great sourse of inspiration 
to our friends in that group. 
So, here he is, from the 
FUNNELWEB FARM (049) 52 3162 
In this series of notes on TI 
Extended Basic for the 
TI-99/4a we will concentrate 
on those features which have 
not received due attention in 
User-group newsletters or 
commercial magazines. In fact 
most of the programs published 
in these sources make little 
use of that most powerful 
feature of XB, the user 
defined sub-program, or of 
some other features of XB. 
Worse still is to find 
commercially available game 
programs which are object 
lessons in how to write 
tangled and obscure code. The 
trigger for this set of 
tutorial notes was a totally 
erroneous comment in the 
TI.S.H.U.G Newsdigest in Jun 
1983. Some of the books I 
have seen on TI Basic don't 
even treat that simpler 
language correctly, and I 
don't know of any systematic 
attempts to treat XB. The 
best helper is TI's Extended 
Basic Tutorial tape or disk. 
The programs in this 
collection are unprotected and 
so open for inspection and 
it's worth looking at their 
listings to see an example of 
how sub-programs can give an 
easily understood overall 
structure to a program. 


Well, what are we going to 
talk about then ? Intentions 
at the moment are to look at 


User-defined sub-programs 
Prescan switch commands 
Coding for faster running 
Bugs in Extended Basic 
Crunching program length 
XB and the Peripheral Box 
Linking in Assembler 
routines 


Initially the discussion will 
be restricted to things which 
can be done with the console 
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and XB only. Actually, for 
most game programming the 
presence of the memory 
expansion doesn't speed up XB 
all that much as speed still 
seems to be limited by the 
built-in sub-programs ( CALL 
COINC, etc ) which are 
executed from GROM through the 
GPL interpreter. The real 
virtue of the expansion system 
for game programming, apart 
from allowing longer programs, 
is that GPL can be shoved 
aside for machine code 
routines in the speed critical 
parts of the game, which are 
usually only a very small part 
of the code for a game. Even 
so careful attention to XB 
programming can often provide 
the necessary speed. As an 
example, the speed of the puck 
in TEX-BOUNCE is a factor of 
10 faster in the finally 
released version than it was 
in the first pass at coding 
the game. 


Other topics will depend 
Mainly on suggestions from the 
people following this tutorial 
series. Otherwise it will be 
whatever catches our fancy 
here at Funnelweb Farm. 


(1) 
II. SUB-PROGRAMS in OVERVIEW 


Every dialect of Basic, TI 
Extended Basic being no 
exception, allows the use of 
subroutines. Each of these is 
a section of code with the end 
marked by a RETURN statement, 
which is entered at some 
earlier point by a GOSUB 
statement somewhere else in 
the program. When RETURN is 
reached control passes back to 
the statement following the 
GOSUB. As an example 


290 .oe5 
300 GOSUB 2000 
310 ...6- 


2000 CALL KEY(Q,X,Y):: IF Y=1 
THEN RETURN ELSE 2000 


This simple example waits for 
and returns the ASCII code for 
a fresh keystroke, and might 
be called from a number places 
in the program. Very useful, 
but there are problems. If 
the line number of the 
subroutine is changed, other 
than by RESequencing of the 
whole program (and many 
dialects of Basic for 
microcomputers aren't even 
that helpful) then the GOSUBs 
will go astray. Another 
trouble, which you usually 
find when you reSume work ona 
program aiter a lapse of time, 
is that the statement GOSUB 
2000 doesn't carry the 
slightest clue as to what is 
at 2000 unless you go and look 
there or use REM statements. 
Even more confusingly the 2000 
will usually change on 
RESequencing, hiding even that 


aid to memory. There is an 
even more subtle problem -- 
you don't really care what the 
variable "Y" in the subroutine 
was called as it was only a 
passing detail in the 
subroutine. However, if "yY" 
is used as a variable anywhere 
else in the program its value 
will be affected. The 
internal workings of the 
subroutine are not separated 
from the rest of the program, 
but XB does provide four ways 
of isolating parts of a 
program. 


(1) Built-in sub-programs 

(2) DEF of functions 

(3) CALL LINK to machine code 
routines 

(4) User defined BASIC 
sub-programs 


The first of these, built-in 
sub-programs, are already well 
known from console Basic. The 
important thing is that they 
have recognizable names in 
CALL statements, and that 
information passes to and from 
the sub-programs through a 
well defined list of 
parameters and return 
variables. No obscure Peeks 
and Pokes are needed. The 
price paid for the power and 
expressiveness of TI Basic and 
XB is the slowness of the 
GROM/GPL implementation. 


DEF function is a primitive 
form of user defined 
sub-program found in almost 
all BASICs. Often its use is 
restricted to a special set of 
variable names, FNA,FNB,... 
but TI Basic allows complete 
freedom in naming DEFed 
functions (as long as they 
don't clash with variable 
names). The "dummy" variable 
"xX" is used as ina 
mathematical function, not as 
an array index 


100 DEF CUBE(X)=X*xX*xX 


(2) 

doesn't clash with or affect a 
variable of the same name "x" 
elsewhere in the program. 
"CUBE" can't then be a 
variable whose value is 
assigned by a LET (or =), but 
"X" may be. Though DEF does 
help program clarity it 
executes very slowly in TI 
Basic, and more slowly than 
user defined sub-program CALLs 
in XB. 


CALL LINK to machine code 
routines goes under various 
names in other Gialects of 
Basic if it is provided (eg 
USR( ) in some). It is only 
available in XB when the 
memory expansion is attached, 
as the TI-99/4a console has 
only 256 bytes of CPU RAM for 
the TMS9900 lurking in there. 
We will take up this topic 
later. 


Sir ved 
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You should have your TI 
Extended Basic Manual handy 
and look through the section 
on SUB-programs. The 
discussion given is 
essentially correct but far 
too brief, and leaves too many 
things unsaid. From 
experiment and experience I 
have found that things work 
just the way one would 
reasonably expect them to do 
(this is not always so in 
other parts of XB). The main 
thing is to get into the right 
frame of mind for your 
expectations. This process is 
helped by figuring out, in 
general terms at least, just 
how the computer does what it 
does. Unfortunately most 
TI-99/4a manuals avoid 
explanations in depth 
presumably in the spirit of 
"Home Computing". TI's 
approach can fall short of the 
mark, So we are now going to 
try to do what TI chickened 
out of. 


The user defined sub-program 
feature of XB allows you to 
write your own sub-programs in 
Basic which may be CALLed up 
from the main program by name 
in the same way that the 
built-in ones are. Unlike the 
routines accessed by GOSUBs 
the internal workings of a 
sub-program do not affect the 
main program except as allowed 
by the parameter list attached 
to the sub-program CALL. 
Unlike the built-in 
sub-programs which pass 
information in only one 
direction, either in or out 
for each parameter in the 
list, a user sub-program may 
use any one variable in the 


list to pass information in 


either direction. These 
sub-programs provide the 
programming concept known as 
"procedures" in other computer 
languages, for instance 
Pascal, Logo, Fortran. The 
lack of proper "procedures" 
has always been one of the 
major limitations of BASIC as 
a computer language. TI XB is 
one of the BASICs that does 
provide this facility. Not 
all BASICs, even those of very 
recent vintage are so 
civilised. For example the 
magazine Australian Personal 
Computer in its last issue 
(Mar 84) carried a review of 
the IBM PCjr computer just 
released in the US of A. The 
Cartridge Basic for this 
machine apparently does not 
Support procedures. Perhaps 
IBM don't really want or 
expect anyone to program their 
own machine seriously in 
Basic. You will find that 
with true sub-programs 
available, that you can't even 
conceive any more of how one 
could bear writing substantial 


programs without them (even 
within the 14 Kbyte limit of 
the unexpanded TI-99/4a let 
alone on a machine with more 
memory). 


The details of how procedures 
Or sub-programs work vary from 
one language to another. The 
common feature is that the 
variables within a procedure 
are localised within that 
procedure. How they 
communicate with the rest of 
the program, and what happens 
to them when the sub-program 
has run its course varies from 
language to language. XB goes 
its own well defined way, but 
is not at all flexible in how 
it does it. 

(3) 

Now let's look at how Extended 
Basic handles sub-programs. 
The RUNning of any XB program 
goes in two steps. The first 
is the prescan, that interval 
of time after you type RUN and 
press ENTER, and before 
anything happens. During this 
time the XB interpreter scans 
through the program, checking 
a few things for correctness 
that it couldn't possibly 
check as the lines were 
entered one by one, such as 
there being a NEXT for each 
FOR. The TI BASICs do only 
the most rudimentary syntax 
checking as each line is 
entered, and leave detailed 


checking until each line is 


executed. This is not the 
best way to do things but we 
are stuck with it and it does 
have one use. At the same 
time XB extracts the names of 
all variables, sets aside 
space for them, and sets up 
the procedure by which it 
associates variable names with 
storage locations during the 
running of a program. Just 
how XB does this is not 
immediately clear, but it must 
involve a search through the 
variable names every time one 
is encountered, and appears to 
trade off speed for economy of 
storage. 


XB also builds a table of the 
built-in sub-programs that are 
called. How can it tell the 
@aifference between a 
sub-program name and a 
variable name? That's easy 
Since sub-program names are 
always preceded by CALL. This 
is why sub-program names are 
not reserved words and can 
also be used as variable 
names. This process means 
that the very slow search 
through the GROM name tables 
is only done at prescan, and 
Basic then has its own list 
for each program of where to 


go in GROM for the GPL routine 


without having to conduct the 
GROM search every time it 
encounters a sSub-program name 


while executing a program. In 


Command Mode the ,computer has 
no way provided to find user 
Gefined sub- program names in 


an XB program in memory even 
in BREAK status. XB also 
establishes the process for 
looking up the DATA and IMAGE 
statements in the program. 


Well then, what does XB do 
with user sub-programs? First 
of all XB locates the 
sub-program names that aren't 
built into the language. It 
can do this by finding each 
the name after a CALL or SUB 
statement, and then looking it 
up in the internal GROM files 
of built-in sub-program names. 
You can run a quick check on 
this process by entering the 


‘one line program 


100 CALL NOTHING 


‘TI Basic will go out of its 


tiny 26K brain and halt the 
prescan with a BAD NAME IN 100 
error message, while XB, being 
somewhat smarter, will 


‘complete the prescan but halt 


execution with a SUBPROGRAM 
NOT FOUND IN 100 message. 


The next thing that XB has to 
do in its prescan is to locate 
the sub-programs and take care 
of them. The XB manual 
insists that the sub-programs 
come at the end, with nothing 
but sub-programs after the 
first SUB statement (apart 
from REMarks which are ignored 
anyway). XB then scans and 
establishes new variable 
storage areas, starting with 
the variable names in the SUB 
xxxX(parameter list), for each 
sub-program from SUB to 
SUBEND, as if it werea 
separate program. It seems 
that XB keeps only a single 
master list for built-in and 
user sub-programs. Data 


statements are also thrown 
into the common data pool. 
Try the following little 
program to convince yourself. 


Dounger Set 


rece 


Dear Jenny, 
My name is Sukhjit Kondel 
and I am 14. 


I have enclosed a Program 
that I found and is called 
"Kaleidoscope". Hope you 
like it! 


Yours Sincerely, 
S. Kondel, 
East Ham, LONDON. 


100 REM 
110 REM KALEIDOSCOPE 
120 REM TI BASIC 


130 CALL CLEAR 
140 CALL SCREEN(15) 

150 FOR J=32 TO 152 STEP 8 
160 CALL CHAR(J,"FFFFFFFFFFF 
FFFFF" ) 

170 CALL COLOR((J/8)-3,INT(R 
ND*¥16+1),1) 

180 CALL HCHAR(INT(RND*24+1 ) 
, INT(RND*29+3) ,J) 

190 NEXT J 
200 GOTO 150 


Well, hi there gang! This page 


year old members of TI.S.H.U.G 


month, and I'll share that 
with you in a moment. What are 


is set aside for you under 18 


Would you believe, I only 
received one letter this 


you doing with your computers, 
just playing games, I hope 
not, infact, Shane tells me 
that there are a lot of 
talented Younger Set members 
in this group. Let's see how 
talended you are. Do you have 
LOGO? If so, how about sharing 
with us, some proceedures. 
Here is one you might like to 
type in... 

CLEAR 

MAKE "X[6 7 8 9 10 11 12 13 
14) 

TELL 6 SXY 0 32 

TELL 7 SXY 16 32 

TELL 8 SXY 32 32 

TELL 9 SXY 0 16 

TELL 10 SXY 16 16 

TELL 11 SXY 32 16 

TELL 12 SXY 0O 1 

TELL 13 SXY 16 1 

TELL 14 SXY 32 1 

TELL :X EACH [CARRY YN ] 

SS 5 SC 1 

END 


TO CLEAR 

NOTURTLE CS CB 7 THAW 
TELL :ALL SS 0 SC 0 SH 0 
SXY 0 97 CARRY 0 

END 


Now the first one to type 
that in, and correctly tell me 
what it does, and include one 
with your reply, will receive 
a $30.00 voucher to go buy 
yourself a module of your 
choice, at a selected Computer 
Retail Outlet. 

Here's a letter from Justin 
Chambers of Denistone... 

Dear Jenny, here is some of 
my scores for the HALL OF 
FAME(I hope). 

PARSEC....113300 AND 100600 
CHISHOLM TRAIL.6000, 5800 
BLASTO....33640 

ALPINER...30085 
MUNCHER...11600,10900,9100,9200 


CATERPILLAR.155,195,160 


Well Justin, you didn't 
make it with PARSEC, the high 
score recorded by C.Sheehan 
was 3870000. Antony Lewis 
scored 47400 on Chisholm 
Trail, and S.Hunt racked up 
63171 for Alpiner. But you 
have gone into our Hall Of 
Fame with your scores on 
BLASTO, MUNCHER AND 
CATERPILLAR. Congratulations. 
Keep those High scores coming, 
but don't forget to do some 
programming. You forgot to 
mention your age. My 

Best wishes, JENNY. al 


"Sydney News Digest 


New Computer 
Language Created 
by U of T Group 


An intensive 12-month software 
development effort at the Univer- 
sity of Toronto has produced a new 
programming language called 
Turing, which is being used by 
3,000 students. The language is 
simpler than BASIC and more 
powerful than PASCAL. 

Professors R.C. Holt, J.R. Cordy 
and J.N.P. Hume teamed up to 
create the language with support- 
ing computer software and 
documentation. Working at U of 
T’s Computer Systems Research 
Group, they created compilers for 
both the IBM 3033 and Digital 
Equipment Vax. 


Named after Alan Turing, who 
helped build secret British com- 
puters used after World War II to 
crack Nazi communication codes, 
the language is designed to speed 
the development of highly reliable 
and efficient software. Since 
software development is the key to 
profitability in microelectronics, 
the language should help assure 
success in Canadian high technol- 
ogy companies. 

For the beginning programmer, 
Turing has a no frills syntax that is 
easy to learn and convenient to 
use. This means that Tunng can 
replace BASIC which is now being 
used for teaching computer literacy 
to children. 

It is a general purpose program- 
ming language, with wide applica- 
tion, from children’s microproces- 
sors to industnal supercomputers, 
and provides many constructs, 
such as string handling and mod- 
ules, that are missing from PAS- 
CAL. It supports both interactive 
programming and file processing. 

Using the principle of early error 
detection, the language helps the 
computer to automatically find 
bugs. With other languages, such 
as Fortran, omitting a single com- 
ma in a program has produced re- 
sults as extreme as the loss of a 
rocket space probe. The language 
is defined in terms of mathematical 
axioms, so Turing programs can be 
proved to meet their specification; 
this provides an extremely high 
level of reliability. 

A textbook eaplaining the new 
Janguage should be available early 
this year. 


— Sudney News Digest 
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and many more. 


to RB5X 
Robot. 


the 


DIGEST BIRTHDAY ISSUE - MAY 1981 to MAY 1984 q 


a ae — the 


riODEris.FRINTERS, MONT TORS 
Lamber . 


Stk af ar & 


And have we got some specials "FROGGOID", 

for you...some of our TI "TI-COUNT" and "THE ULTIMATE" 
Software is discounted from (Disk Cataloger). 

10% to 20% on selected items. 


COMING SOON: New titles of TI 
MICROSURGEN and 
SUPER DEMON ATTACK by IMAGIC, 


HAVE YOU SEEN OUR ROBOTS? Yes, 
Robots...come in ans 
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ASK ABOUT THE NEW LOCAL 
PRODUCT CALLED... 

“The Rainbow Pyramid" 

by John Ashmore 

This Extended Basic 
cassette game is both 
colourful, and a real | 
challenge. Priced at only 
$15.00, it's good value for 
your 15 dollar coins. 

check out our other 
Cassette third party software 


TUT COMPUTER WAVELET 


325 GEORGE STREET 
SYDNEY 

(between Wynyard Station 
and Martin Place) 

Tel. 29 1631 


We have just received the ALL 
NEW "SciSys Parallel 
WORDSTORE"(64K printer buffer) 
for only $299.00. 


MINI-FORTH is also now 
available, at Computer Wave 
for only $30.00. This 


version is for those who only 
have an unexpanded TI-99/4(A) 
console, cassette recorder, 
and a MINI MEMORY MODULE, It 
is a local product with 
plenty of get-up and go. 
Featuring over 140 commands, 
full screen editing, plus a 
Forth Education section, and 
much more. 


say hello 
presrammable 


es 


__Sudney Mews Digest 


The second meeting of the 
Blaxland Regional Group took 
place on April 3rd, at 28 


Haymet St, Blaxland. Ten 
members attended (two other 
forgot) including one who 
joined TISHUG after attending 
our first meeting. 

We considered amalgamating 
with the Penrith Regional 
Group of Malcolm Tudor's but 
the consensus was that a 
small informed gathering at a 
member's house was preferable 
and more convenient (for 
those further up the 
Mountains) than a larger 
gathering at Penrith Police 
Boys Club. ; 

The meeting did welcome the 
formation of the Penrith 
group and anticipates a 
frequent exchange of 
information, programs and 
personnel. Ian Docherty and 
I attended the next -meeting 
of the Penrith group and 
conveyed our decision to the 
meeting. 

The group has also decided 
to change the time for the 
monthly meeting (after 
magazine) to the SECOND 
TUESDAY of EACH MONTH at 7.30 
P.M. at the above address 
until further notice. 

We have changed from the 
first Tuesday in order to 
send a member to the Sydney 
meeting to report on 
developments and collect club 
software on consignment. Ian 
Docherty (047-352078) and 
myself will probably 
alternate in our attendance 
at the Sydney meeting. 

The members, most of whom 
have Extended Basic and some 
of whom have considerable 
expertise in either 
programming or electronics, 
are eager to buy club 
software. 

At the conclusion of the 
meeting we travelled in 
convoy to Chris Old's house 
and spent an hour or so 
watching and using his 
comprehensive range of Texas 
and TISHUG software and 
listening to the speech 
Synthesizer in action. 

Overall it was a very 
successful and enjoyable 
meeting with many members 
calling for twice monthly 
meetings. 


I would welcome any. 
feedback from the club as to 
the future activities or any 
other matters you would like 
us to consider. Sorry this 
is such a long report. 

Yours Sincerely 

Robert Vines. 


Dear Shane, I would like to 
introduce myself to you. I am 
one of the founders of the 
MAITLAND TI CLUB. (REGIONAL). 
Maitland has a population 


of 43,000 people and is in the’ 
heart of the Hunter Valley. At 
our foundation meeting, we had 
I believe there are 


40 people. 
at least 700 TI computers in 
Maitland. We have already 

started to run classes on TI 


BASIC, and members are getting 


into the true spirit of the 
club, as portrayed in your 
Sydney Newsdigest. While I am 
on this subject, I would like 
to congratulate you and your 
team, on a great publication. 

I was reading in the 
Newsdigest whith interest, of 
a parcel of magazines tapes 
and articles that you could 
send to clubs on consignment. 

Could you please send a 
parcel for distribution at a 
club meeting. 

Once again congratulations 
on your magazine, and we are 
promoting heavily, membership 
of the Sydney TI.S.H.U.G. 
YOURS FAITHFULLY, 


David Gunstone. 
Founder Member, 


Dear David, 
Thank you for your kind 
words of support, it's so nice 
to hear from our members out 
of the city area, and I wish 
your group all the very best 

wishes. I have just phoned 
Terry to arrange a packet of 
godies to be sent to your 
Regional Group, and if we can 
be of further assistance, 
please don't hesitate to get 
in touch with us. 

Cheers. SHANE. 

JIM THREADGATE advises that 
meetings are being held every 
2nd Wednesday in each month at 
MAITLAND CITY HALL and starts 
at 7:30pm. 


NEWCASTLE REGIONAL NEWS 


Newcastle club is calling 
for nominations to chair the 
Management Committee. This 


committee will consist of Club 


Co-Ordinator, Secretary, 
Treasurer, Librarian and 
Programmers Crisis Line. 

June is going to be a big 
month for us, thanks to 
Computer Innovation Group 
p/Ltd, and Brian Rutherford, 
who have organized a 
demonstration of T.I. 
PROFESSIONAL COMPUTER. If you 
missed the last two computer 
shows in this area - don't 
miss this one, 
will be an interesting 


as I am sure it 


experience! 

Gary Jones has now started 
his weekly Basic tutorials, 
for futher details phone (049) 
573744. 

A few Newcastle members 
have the technical details for 
the light pen, HELP! does any 
one have any programmes? 

Good news that the Maitland 
area and surrounds - David 
Gunstone has started that new 
regional group He can be 
contacted on (049) 327003. 

Hope to see continued 
attendance-at the next 
regional meeting. 

Regards, PETER COXON. 


Peter, If you don't already 
have a copy of our LIGHTPEN 
program of TIC-TAC-TOW, please 
get in touch with us, with a 
tape or disk, and we'll send 
you a copy of it plus a Print 
out of it. It will be 
interesting to see what you do 
with it, in creating some a 
other programs from that 
example. SHANE. 


NEPEAN REGIONAL MEETING 

Since the last issue of the 
S.N.D. The Nepean Regional 
Group has met twice. Meeting 
activities include reports on 
items of interest from Sydney 
and other Regional meetings I 
have attended, exchange of 
information, program tips and 
programs and sale of Club 
tapes. 

The Nepean group has been 
represented at the Blaxland 
Regional Group meetings, and 
we intend to develop further 
closer relations with this 
group by regularlly attend‘ng 
& partisipating in each others 
meetings. A full day local 
tutorial is planned to be held 
with the date to be announced. 

The Group plans to have 
SPECIAL invited guests from 
TI.S.H.U.G. attend our local 
meting, so don't make any 
plans to leave the country 
Shane, Peter and others. 

Meetings are held at the 
Penrith Police soy's Club 
Arobics Room, the 1st and 3rd 
mondays each month, time: 7 - 
Q9pm. For further information, 
please phone either MALCOLM 
TUDOR (047)333673 or MEL 
COPELAND (047)351340. 

Yours Sincerely, 

MEL COPELAND. 


Suey News Digest 


Dear Editor, 

Here are details of how to 
connect a cheap printer to 
the TI 99/4A RS232 Interface. 
The printer is the Tandy 
GCP115. 


The two plugs can be easily 
obtained from Tandy Stores. 
They are a 25 pin D Plug and 
a 4 Pin Din Plug. The Pin 
numbers are as follows:- 


Pin 1 
Din 

Pin 2 on 25 Pin to Pin 1 on 
Din 

Pin 7 on 25 Pin to Pin 3 on 
Din 

Pin 20 on 25 Pin to Pin 2 
on Din 


on 25 Pin to Pin 4 on 


The entry code for files 
RS232.BA=600.DA=7.PA=N IN 
QUOTES. 


This may be a simple way 
for T.I. users to have print 


outs and simple forms of word 
processors. 


Your Faithfully, 
D. Atkinson, 
Burley In Wharfedale. 


Dear Editor, 

I know the basis of the 
magazine is to help fellow 
users and I believe I have 
found a solution to the 
loading of tapes problem with 
must be fairly common with 
T.I. users. 

If you have a cassette 
player that is equipped with 
"Vari-Speed" turn the control 
to +20% -- not only will the 
tape load first time, but it 
also loads the program 
faster, thus you are not 
sitting around looking at 
"ERROR DETECTED IN DATA" all 
day. 


The only machines I have 
seen with this facility seem 


to be American, so if you 
want to save time you know 
what to do. 

Meanwhile, I would like to 
wish your magazine all the 
best in the future - you're 
just what we have been 
waiting for. 


Your Faithfully, 
Phil Donald, 
Manchester. 


The following sub-routine 
is useful for mixing text 
with graphics. 


1000 REM SUB-ROUTINE TEXT WI 
TH GRAPHICS 

1010 FOR I=1 TO LEN(TEXT$) 
1020 X=X+1 

1030 CALL HCHAR(Y,X,ASC(SEG$ 
(TEST$,1I,1))) 

1040 NEXT I 
1050 RETURN 


X and Y are the column 
number and row number of the 
first letter of the text, and 
along with the TEXT$ must be 
defined each time in the main 
program before calling up the 
sub-routine. Care must be 
taken that X does not 
increment above 32 in line 
1020 or the program will 
crash. 


Your Faithfully, 
Danny Widdows, 
Cambridge. 


We received a letter from RAY 
TUCKER in Auckland N.Z. who 
was asking about the 
availability of TI-WRITER & 
TE#2. Plus, wanted to know 
what he would get for the 
overseas membership fee of 
$25.00. 

TI-WRITERS are only just 
becomming available, and 
TE#2's have just arrived, so 
you'll be right there Ray. 
Regarding the membership fee.. 
Yes that it correct, 
membership of our friends 
overseas is $25 Australian. 
There is no Joining fee like 
the other members have to 
pay($10), but they also pay 
$20pa. To cover the cost of 
Airmail postage of the club 
SYDNEY NEWSDIGEST, a $25 fee 
was designed. As you may have 
noticed, the club Newsletter, 
is a little bit thicker than 
other User Group publications. 
With a wealth of information. 
And even though you would be 
unable to phone the Crisis 
Line, you still are able to 
purchase club tapes, and 
activate the new BBS when set 
up. 

We wish you all of the very 
best with your group in 
Auckland. For those interested 
in corresponding with RAY | 
TUCKER, he can be contacted at 
63 Marriett Rd, Pakuranda, 
Auckland, New Zealand. 


Dear Shane, 

AS a very new member, I am 
very impressed with your 
Magazine. 

I would like to purchase 
back copies, prior to my first 
copy (April'84). Could you 
please advise re availability 
of same, and please take this 
aa firm order. 

Also, I see references to 
oter clubs. Would it be 
possible to get information 
about these clubs, other than 
tose listed in the April 
issue? 

Thank you for what is 
obviously a very big job. 

Gorgon Sneddon. 


THANK YOU GORGON FOR YOUR 
COMMENTS ABOUT OUR SND. I 
ENJOY PUTTING IT TOGETHER. IT 
KEEPS ME OFF THE STREETS, AND 
I'M SURE THAT SYDNEY IS A 
BETTER PLACE BECAUSE OF THAT, 
REGARDING BACK ISSUES, 
UNFORTUNATELY, WE HAVE ONLY 
BEEN PRINTING ABOUT 100 ‘COPIES 
MORE THAN THE REGULAR 
MEMBERSHIP, EACH MONTH, AND 
THE.CLUB HAS BEEN GROWING SO 
FAST, THAT THOSE SPARE COPIES 
HAVE BEEN GIVEN TO OUR NEW 
MEMBERS WHEN THEY JOIN. 
BECAUSE OF THIS, WE HAVE 
DECIDED TO PRINT 150 MORE 
COPIES THAN IS REQUIRED, BUT 
THAT STARTED AS OF THE LAST 
ISSUE. I ENDEVOUR TO REPRINT 
ITEMS OF INTEREST FROM PAST 
ISSUES, ONCE IN A WHILE, BUT 
THERE IS SO MUCH STUFF COMING 
IN THAT IT WOULD BE BETTER IF 
YOU GOT INVOLVED WITH A 
REGIONA GROUP, AND PERHAPS 
PHOTOCOPIED BACK ISSUES 
BELONGING TO THE MEMBERS. 
CHEERS FOR NOW, 
SHANE 


PTECHO 
| TIME 


Well, the time has come to 
form a technical arm of 
our club. In the near future 
we will be trying to gauge 


club members needs and attempt 


to fulfil (hopefully) the low 
cost peripheral needs of our 


growing membership. We hope to 


praevide good back-up for all 
devices produced. 


In order to accomplish this 
this task,we need to know what 
technical expertise, technical 


information (published low- 


cost peripherals,modifications 


etc.) members have available. 
Some members have volunteered 
their services already, these 
members I would like to 

contact me(ROBERT)on 602-4168 
5.00-8.30 PM as soon as 

possible. Anyone else wishing 


to assist can also contact me. 


If anyone has a technical 
problem just contact me or | 
send a letter to "TECHO TIME" 
P.O. BOX 595 MARRACKVILLE 
2204. And we will endevour to 
find a solution. 

Anyone wishing to 
contribute technical articles 
can send them to the above 
address - 


wet we 


SH IF EGFC1) THEN 24u 
LIHFUT #1: A$ 
PRINT fis 

164 Z=LEN CAS) 

IF 2=6 THEN 134 
{G6 PRINT #e:2 

FOR K=1 10 2 
BS=SEG$C A$. 4.1) 
FRINT #2:B$ 

NEAT A 

GOTO 156 

CLOSE #2 

CLOSE #1 


When the program has finished 

running then goto te BASIC with 

MIRIMEM and printer 

Type aed rus this short program 

1 CALL LINK(C"JSET".aumeric varible?> 

166 CALL CLEAR 

116 OPEN #1:"DSK1.PRT1". INPUT. INTERNAL 

126 IF EOFC1) THEN 228 

136 INPUT #1:2 

146 FOR k=1 T0 Zz 

15@ INPUT #1:A$ 

166 BE=BSkA$ 

176 HEAT X 

188 PRINT B$ 

198 CALL LINK¢"JOUT".B$) 

266 BS="" 

216 GOTO 128 

ec@ CLOSE #1 
‘N\ 


The following was sent to us 
on silver THERMAL PAPER, so 
let's see how it re-produces. 
AE3OBLU FELLOW TI USERS 

Tchave ‘eritten:a small series of 
Progrags which: lets me list both 
BRSIC--aad X-BASIC programs through 
ey JOYTALK serial isterface 
Usforturately this is a slow process 
aud ewtails the use of a disk drive 
The process is as follows. 


iter Saving your program to the 
eediug you wish thes list the 
Pregrage as foiloes 

LiST "DSKI.PRT® 

Chauge to extended basic and type iz 
atd rum the following prograr 

Be CALL CLEAR 

E OPEN #1: "DSK1. PRT". INFUT 

UPER $2: "DSK1.5 


Seat a - Soe TOL 


lias 


PRTL®. OUTPUT. INTERNAL 


I can already hear the shouts of 
it's too slow or what use is it to 
me I dow't have a disk drive but 

I answer this by saying I may not 
be the only one who has gotten a 
cheap printer and after the hole 
left in my wallet by the disk drive 
and periphial box cost's have wot 
been able to afford the price of the 
proper iuterface card. 


On this point I would like to say 
something about the new technical 
group in T.I.S5.H.U.G. these quy's 
may be able to design and build 
thing's like the JOYTALK but it 

is up to us the user's to use them 
toa the full of their limitatin's 
aud limitation's they will have 
because you cannot build ROLLS 
ROYCES with HOLDEN parts at HOLDEN 
prices 


SO if you want a ROLLS then bye a 
ROLLS but me I'LL go with the 
HOLDENS fella'stCor girl's> GOQD LUCK 
Sa to finish if any else find's thts 
usefull that'll be great and 

if samecne else kuows of a faster 

im which a cassette 

can be used then let us know tt the 
SND. 
will be wery 


Wad OF a Wad 


I'm sure muself and athers 
interested, 


Hae RY 


Sa B.SE.F.N. 
CHRIS Ports 


AnD TLTRS 
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REGIONAL NEWS CONTINUED 


LIVER-R-T-U-P GROUP 
(Liverpool Regional Texas User 
Persons Group). 


Ten persons and three 
TI-99/4A's (accompanied by 
various peripherals) attended 
the meeting at Campbelltown on 
Saturday 14th April. Robert 
Pollett from Croydon, was kind 
enough to attend, to 
demonstrate FORTH, using both 
32k memory and the Mini memory 
versions. The demonstration 
was well presented and much 
appreciated by those 
attending. 

Vince Cerrato provided a 
tutorial on the creation of 
Sprites in Extended Basic. 
From the discussion that 
evolved during this session, 
it appeared that it was well 
apreciated by all. 

It is envisaged tnat 
demonstrations, tutorials and 
workshops will be planned for 
furture meetings. It is 
proposed that meetings of 
LIVERTUP Group will be held on 
the second Saturday of each 
month (except holiday 
weekends) .Enquiries regarding 
meetings can be made by 
contacting Vince Cerrato 
6377546 or Stan Puckle (046) 
256157. The JUNE MEETING is 
planned for Saturday 16th June 
at the home of HANS ZECEVIC of 
Moorebank. 

we thank the TI-99/4a's for 
attending and making the 
meeting posible, BYE For now. 


MARRICKVILLE REGIONAL GROUP 
This particular evening was 
a little smaller in attendance 
last month, as the first 
tuesday of the month, was also 
the first day of the month, 
hence, a few forgot to attend. 
And yet, the ten of us had a 
good time, and had the 
opportunity to down-load some 
very interesting new programs 
just received from SAN GABRIZSL 
VALLEY in the U.S.of A. 

The next meeting will be 
conducted at Shane's home once 
again, on the first Tuesday 
AFTER the next Club meeting/ 
workshop tutorial at 7:30pm, 
Unit 1/37 George St, 
Marrickvile. For further 
details, Shane can be 
contacted at his place of work 
on (02)291631. 
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MICRO was a real-time 
operator and dedicated 
multi-user. His broad-band 
protocol made it easy for him 
to interface with numberous 
input/output devices, even if 
it meant time-sharing. 


One evening he arrived home 
just as the sun was crashing, 
and had parked his Motorola 
68000 in the main drive (he 
had missed the S100 bus that 
morning), when he noticed an 
elegant piece of liveware 
admiring the daisy wheels in 
his garden. He thought to 
himself, "She looks 
user-friendly, I'll see if 
she'd like an update 
tonight". 


Mini was her name, and she 
was delightfully engineered 
with eyes like COBOL and a 
Prime mainframe architecture 
that set Micro's peripherals 
networking all over the 
place. 


He browsed over to her 
casually, admiring the power 
of her twin, 32-bit floating 


point processors, and 
enquired "How are you 
Honeywell?". "Yes, I am 
well", she responded, batting 
her opitcal fibres engagingly 
and smoothing her console 
over her curvilinear 
functions. 


Micro settled for a > 
straight line approximation. 
"I'm stand-alone tonight", he 
said. "How about computing a 
vector to my base address, 
I'll output a byte to eat, 
and maybe we could get offset 
later on". 


Mini ran a priority process 
for 2.6 milli-seconds then 
transmitted "8K, I've been 
dumped myself recently, and a 
new page is just what I need 
to refresh my disks. I'll 
park my machine cycle in your 
background and meet you 
inside. "She walked off, 
leaving Micro admiring her 
solenoids and thinking, "WOW, 
what a global variable, I 
wonder if she'll like my 
firmware." 


They sat down at the 
process table to a top of 
form feed of fiche and chips 
and a bucket of baudot. Mini 
was in conversational mode 
and expanded on ambiguous 
arguments while Micro gave 
occasional acknowledgements 
although, in reality he was 
analysing the shortest and 
least critical path to her 
entry point. He finally 
settled on the old "would you 
like to see my bench-mark 
subroutine”, but Mini was 
again one step ahead. 


Suddenly she was up and 
stripping off her parity bits 
tor eveal the full 
functionality of her 
operating system software. 
"let's get BASIC, you RAM", 
she said. Micro was loaded 
by this stage, but his 
hardware polling module had a 
processor of its own and was 
in danger of overflowing its 
output buffer, a hang-up that 
Micro had consulted his 
analyst about. "Core", was 
all he could say. 


Micro soon recovered, 
however, when she went down 
on the DEC and opened her 
device files to reveal her 
data set ready. He accessed 
his fully packed root device 
and was just about to start 
pushing into her CPU stack, 
when she attempted an escape 
sequence. 


"No, no!" she piped. 
"You're not shielded". 


"Reset, baby", he replied. 
"I've been debugged". 


"But I haven't got my 
current loop enabled, and I 
can't support child 
processes", she protested. 


“Don't run away", he said, 
"I'll generate an interrupt". 


"No that's too error prone, 
and I can't abort because of 
my design philosophy”. 


Micro was locked in by this 
stage though, and could not 
be turned off. But she soon 
stopped his thrashing by 
introducing a voltage spike 
into his mains supply, 
whereupon he fell over with a 
head crash and went to sleep. 


"Computers", she thought as 
she compiled herself", "all 
they ever think of is Hex". 


OUT 
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!* BABY ELEPHANT WALK. 
!* by Henry MANCINI. 
1* & Russell WELHAM. 
! EXTENDED BASIC. 
1* 23rd APRIL 1984. 


\* Version 3. 
[KK KKK AK KK AKK EERE KEKE KKK 


t 
10 DISPLAY AT(11,5)ERASE ALL 
:"BABY ELEPHANT WALK": :"by 
Henry MANCINI & R WELHAM 
we 


OODOANINURWN 
+ 
+ + OF 


11 FOR DELAY=1 TO 200 :: NEX 
T DELAY 

12 CALL CHAR(96,"0000E0F0303 
O"&RPTS("0",20)&"383E"&RPTS$ ( 
"3F",14)) 

13 leP- 

14 CALL CHAR(100,"00COEOFOFO 
EOCOCOEOF8FCFFFFFFFFFF"&RPT$ 
("0",24)&"8080C0C0") 

15 CALL CHAR(104,"FFFF"&RPT$ 
("F",20)&"FEFOOOOOFFFFFFFFFF 
FFFEFEFCF8F0C000000000") 

16 CALL CHAR(108,"0060900808 
0810E0") 

17 CALL CHAR(112,"FFFF"&RPT$ 
("0",28)&"808000000707"&RPT$ 
("0",20)) 

18 CALL CHAR(116,"F8F8"&RPT$ 
("o",60)) 

19 CALL CHAR(120,RPT$("F",28 
)&RPT$("0",32)&"FFFF") 

20 CALL CHAR( 40,"00000000030 
F3FFF",41,"00000000COFOF8FC" 
,42,"0103070F1F1IF3F3F",4 

3, "FEF8EQE0COC08080") 

21 CALL CHAR(44,"7F7F7FFFFFF 
FFFFF",45,"00000000000080C0" 
,46,"00000103070F1F3F",4 
7,"0078FEFFFFFFFFFF") 

22 CALL CHAR(48,"00000000C0C 
OFOFO",49,"FFFFFF7F7F3F3F1F" 
,50,RPT$("F",16),51,"FCF 
CFEFFFFFFC3C3",52,"000000008 
OCOFFFF") 

23 CALL CHAR(53,"00000000000 
OFFFF",54,"000000000000F0FC" 
,55,'"1F0F070301",56,"FFF 
FFFFFFFFFFF3F",57,"0FOFCFCFF 
FFFFFFF") 

24 CALL CHAR(58,RPT$("CO",8) 
759, 3F3FO0FOFOFOF3F3F",60,"8 
O80EOFOF8FCFEFF",61,"0F0 
7000000000307" ,62,"C70F1F3F7 
FFFFFFF") 

25 CALL CHAR(63,"0F0F",64,"8 
O80COCOEQEOEOFO",65,"3F1F0FO 
FOFOFOFOF",66,"000000000 
OFFFFFF",67,RPT$("FO",8),68, 
"OFOFOFOFIFIFIFIF") 

26 CALL CHAR(69,"COCOFFFFFFF 
FFFFF",70,"1F1FFFFFFFFFFFFF" 
,71,"EQEQEOCOCOC08080",7 

2, 1F3F3F3F3F3F3F3F",73,"FFF 
FFFFFFFFF") 

27 CALL CHAR(74,"FFFFFFFFFFF 
FO0303",75,"8080",76,RPT$("3F 
",8),77,RPT$("F3",8),78, 
RPT$("03",8),79,"3F3F",80,"F 
3F303030303",81, "FFFFFFFFFFF 
F') 


| H. 


MUSIC CO-ORDINATOR RS 


28 CALL CHAR(82,"03030303",8 

3, "FFFFFFFF",84,"FF") 

29 CALL CHAR(88,"003844447C4 

44444" ,90,"003C40405C444438" 
,92,"0000040810204000",9 

4,"0038101010101038",95,"004 
040404040407C") 

30 !@P+ 

31 CALL CHAR(124,"0044646454 
404044",125,"007844447840404 
0",126,"0038440408100010 
"):: CALL CLEAR 

32 FOR I=2 TO 7 :: CALL COLO 

R(I,15,1):: NEXT I :: CALL S 

CREEN(16):: CALL COLOR(1 
3,4,4):: CALL HCHAR(22,1,128 
96) 

33 !@Pp- 

34 DISPLAY AT(11,17):" ()" : 
: DISPLAY AT(12,17):"*+" : 

DISPLAY AT(13,17):",-./0 

il 


35 DISPLAY AT(14,17):"122234 
56" :: DISPLAY AT(15,17):"78 
29:3;22<1" :: DISPLAY AT( 
16,17):" =>2:?222@e" 

36 DISPLAY AT(17,19):"A2:B22 

2c" :: DISPLAY AT(18,17):" 

D2EF222G" :: DISPLAY AT( 

19,17):" H221II2K" 

37 DISPLAY AT(20,17):" LM2 
N2" :: DISPLAY AT(21,17):" 
OPQ RS" 

38 DISPLAY AT(11,5)SIZE(10): 

" ()" s: DISPLAY AT(12,5)S1Z 

E(10):"*+" :: DISPLAY AT 
(13,5)SIZE(10):",-./0" 

39 DISPLAY AT(14,5)SIZE(10): 

"12223456" :: DISPLAY AT(15, 

5)SIZE(11):"7829::22<1" 

2: DISPLAY AT(16,5)SIZE(10): 

" =>2:2?222a" 

40 DISPLAY AT(17,7)SIZE(10): 

"A2:B222C" :: DISPLAY AT(18, 

5)SIZE(10):" D2EF222G" 

2: DISPLAY AT(19,5)SIZE(10): 

"  H22III2K" 

41 DISPLAY AT(20,5)SIZE(10): 

"  LM2 N2" :: DISPLAY AT(21 

,5)SIZE(10):" OPQ. RSs" 

42 !@P+ 

43 CALL MAGNIFY(3) 

44 CALL SPRITE(#6,96,2,111,7 

3,#7,96,2,111,169) 

45 !@P- 

46 CALL SPRITE(#8,100,2,111, 

89,#9,100,2,111,185) 

47 CALL SPRITE(#10,104,2,127 

,83,#11,104,2,127,179) 

48 CALL SPRITE(#12,112,2,163 

,67,#13,112,2,163,163) 

49 CALL SPRITE(#14,116,2,167 

,83,#15,116,2,167,179) 

50 CALL SPRITE(#16,120,2,151 

,104,#17,120,2,151,200) 

51 !@aP+ 

52 ! 

53 A1l=110 :: AS1,BF1=117 :: 

B1=123 :: C1=131 :: CS1,DF1= 

139 :: D1l=147 :: DS1,EF1 

=156 :: E1=165 :: F1=175 3: 

FS1,GF1=185 :: G1=196 :: GS1 

,AF2=208 

54 A2=220 :: AS2,BF2=233 :: 

B2=247 3: C2=262 :: CS2,DF2= 

277-2: D2=294 :: DS2,EF2 

=311 2: E2=330 :: F2=349 :: 

FS2,GF2=370 :: G2=392 :: GS2 

pAF3=415 


' 30 
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55 A3=440 :: AS3,BF3=466 :: 
B3=494 3: C3=523 :: CS3,DF3= 
554 :: D3=587 :: DS3,EF3 
=622 :: E3=659 :: F3=698 :: 
FS3,GF3=740 :: G3=784 :: GS3 
,AF4=831 | 

56 A4=880 :: AS4,BF4=932 :: 
B4=988 3: C4=1047 :: CS4,DF4 
=1109 :: D4=1175 :: DS4, 
EF4=1245 :: E4=1319 :: F4=13 
97 :: FS4,GF4=1480 :: G4=156 
8 3: GS4,AF5=1661 


‘57 A5=1760 3: CO=982 :: CSO, 
DFO=1040 :: DO=1102 :: DSO,E 
FO=1168 :: E0=1237 :: FO 
=1311 :: FSO,GF0=1389 :: GO= 
1471 3: GSO,AF1=1559 :: R=40 
000 

58 X=175 :: Y=350 :: FLAG=0 
59 ! 

60 ! 

61 1 

62 GOTO 73 


63 CALL SOUND(T,S1,V1,S2,V2, 
S3,30,-4,V3):: RETURN 

64 CALL SOUND(T,S1,V1,S2,V2, 
S3,V3):: RETURN 

65 CALL SOUND(T,S1,V1,S2,V2) 
:: RETURN 

66 CALL SOUND(T,S1,V1):: RET 
URN 

67 CALL SOUND(T,S3,30,S83,30, 
S3,30,-4,V3):: RETURN 

68 CALL SOUND(T,S3,V3):: RET 
URN 
69 
70 
71 
72 
73 


0 On eI el coe oe 


75 S3= Al :: GOSUB 64 :: S1=C 
1 :: S2,S3=FO :: V1i=6 :: V2= 
23 GOSUB 63 :: GOSUB 
63 :: S1=G3 :: S2=E3 :: S3=G 

SO :: V1,V2=0 :: GOSUB 63 

76 S3=A1 :: GOSUB 64 

77 1@P+ 

78 FOR I=1 TO 2 :: S1=Cl1 ¢:: 

S2,S3=FO :: V1=6 :: V2=30 : 
GOSUB 63 :: GOSUB 63 :: 
S3=GS0 :: GOSUB 67 :: S1=Al 
:: V1=6 :: GOSUB 66 :: NEXT 
I 

79 J@P- 

80 IF FLAG>0 THEN 81 ELSE FL 

AG=1 :: GOTO 73 

81 FLAG=0 :: GOSUB 82 :: GOT 


82 S1=F3 :: S2=C1 :: S3=F0 : 
>: V1=0 :: V2=6 :: GOSUB 63 : 
: T=X*.5 :: GOSUB 63 :: 
S1=A4 :: GOSUB 63 :: T=X 3:3 
S1=C4 3: S2,S3=GSO :: V2=30 
83 GOSUB 63 :: S1=F4 :: S2=A 
1 :: V2=6 :: GOSUB 65 
A5 :: S2=C1 :: S3=F0 3: 
V2,V3=6 :: GOSUB 63 :: S1=G4 
:: GOSUB 63 :: S1=F4 

84 S2,S3aGS0 :: V2=30 :: GOS 
UB 63 :: S1=D4 :: S2=A1 :: V 
2=6 :: GOSUB 65 :: RETUR 
N 


py 
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85 S1=B4 :: 


66 

86 S1=Ci :: S2,S3=F0 
0 :: GOSUB 63 :: 
S3=GS0 :: GOSUB 67 :: §S 
1=A1 :: GOSUB 66 :: GOSUB 82 
87 S1=C4 :: S2=C1 :: S3=FO : 
> Vi=0 :: V2,V3=6 :: GOSUB 6 
3 :: GOSUB 63 :: S2,S3=G 

SO :: V2=30 :: GOSUB 63 :: S 

2=A1l :: V2=6 :: GOSUB 65 

88 S2=C1 :: S3=FO :: GOSUB 6 
3 :: GOSUB 63 :: S1=D4 :: S2 

=CS1 :: GOSUB 65 :: S1=A 

F4 3:3: S2=D1 :: GOSUB 65 

89 S2=F1 :: S3=BF1 :: GOSUB 

64 :: GOSUB 64 :: S2=CS1 :: 

GOSUB 65 :: S2=D1 :: GOS 

UB 65 :: S2=F1 :: GOSUB 64 : 
: GOSUB 64 :: S2=CS1 :: GOSU 

B 65 


2: V2=3 
GOSUB 63 3: 


GOSUB 67 3:: 


92 GOSUB 63 :: 
B 63 :: S3=GS0 
: S1=A1 :: V1=6 
66 :: S1=Cl1 :: 
V2=30 :: 
3 
93 S1=DS1 :: 
C4 :: S2=E1 
:: GOSUB 65 
94 S1=G4 :: 
: GOSUB 64 :: GOSUB 6 
=DS1 :: GOSUB 65 :: 
1 :: GOSUB 65 :: 
=G1 :: GOSUB 64 3:: 
95 GOSUB 64 :: S1=CS1 
6 :: GOSUB 66 :: S1=C4 :: §2 
=Di :: V1=0 :: GOSUB 65 
96 S1=F4 :: S2=F1 :: S3=BF1 
:: GOSUB 64 :: GOSUB 64 :: §S 
2=CS1 :: GOSUB 65 :: S2= 
D1 :: GOSUB 65 :: T=X*.5 3:3: 
S1=EF4 :: S2=F1 :: GOSUB 64 
97 S1=F4 :: GOSUB 64 :: Sl= 
F4 :: GOSUB 64 :: S1=C4 :: 
OSUB 64 :: T=X :: 
>: S2,S3=GS0 :: V2=30 :: GO 
SUB 63 :: S1=GS3 :: S2=A1 
98 V2=6 :: GOSUB 65 :: S1=B4 
:: S2=C1l :: S3=FO :: GOSUB 
63 :: GOSUB 63 :: S2,S3= 
GSO :: V2=30 :: GOSUB 63 3:: 
S2=A1 :: V2=6 :: GOSUB 65 
99 T=X*.5 3: S1=BF4 :: S2=C1 
2: S3=FO :: GOSUB 63 :: S1= 
B4 :: GOSUB 63 :: S1=BF4 


:: GOSUB 67 : 

:: GOSUB 
S2,S3=F0 ; 

GOSUB 63 :: GOSUB 6 


GOSUB 66 :: S1 
2: V1=0 2: V2=6 


S2=G1 3: 


S3=C1 
4:3: 


T=X 3: 
100 S2,S3=GS0 ;: 
SUB 63 :: S1=C3 : 
V2=6 :: GOSUB 65 
101 S1=EF3 :: S2=C1 :: 
:: GOSUB 63 :: 
UB 63 :: S3=GS0 
67 3: 


102 GOSUB 63 :: GOSUB 63 :: 
S3=GS0 :: GOSUB 67 :: 
:: GOSUB 66 


:: S1=G1 :: 

S3=GSO :: V2=0 3:3: GOSUB 63 
:3: S3=A1 :: GOSUB 64 
105 S1=R :: S2=Cl1 :: 
: V2=6 :: GOSUB 63 :: GOSUB 
63 3: S3=GS0 :: GOSUB 67 

:: S3=A1 :: GOSUB 68 :: 
FO :: GOSUB 63 :: GOSUB 63 
106 S3=GS0 :: GOSUB 67 :: S3 
=A1 :: GOSUB 68 :: IF FLAG>0O 

THEN 107 ELSE FLAG=1 :: 
GOTO 103 
107 FLAG=0 :: 
OTO 111 
108 S1=F2 


S3=F0 : 


S3= 


GOSUB 108 :: G 


2: 3 T=X 
2:2: S2,S3=GS0 : 
GOSUB 63 :: S1=F3 


:: GOSUB 65 

:: S3=F0 
-:: GOSUB 63 
S2,S3=GS0 :: V2 
63 :: S1=D3 

= V2=6 :: GOSUB 6 
:: RETURN 

111 S1=B3 :: S2=C1 :: S3=F0 

:: GOSUB 63 :: S1=C3 :: GOSU 

B 63 :: S3=GS0 :: GOSUB 

67 :: S3=A1 :: GOSUB 68 

1=R :: S3=F0O :: GOSUB 63 

112 GOSUB 63 :: S3=GS0O :: GO 

SUB 67 :: S3=A1 :: GOSUB 68 

:: GOSUB 108 :: S1=C3 :: 
S3=F0O :: GOSUB 63 :: GOSUB 

63 32: S2=R :: S3=GSO :: GOSU 

B 63 

113 S3=A1 :: GOSUB 64 

Ci :: S3=FO :: GOSUB 6 

OSUB 63 :: S1=D3 :: S2 

S1 2: GOSUB 65 :: SI=AF 

S2=D1 :: GOSUB 65 

114 S2=F1 :: S3=BF1 
64 :: GOSUB 64 :: S 
GOSUB 65 :: S2=D1 :: GO 

SUB 65 :: S2=F1 :: GOSUB 64 

:: GOSUB 64 :: S2=CS1 :: GOS 


: G 
=CS 


S2=D1 :: GOSUB 


:: S1=R 
2: S3=BF1 :: GOSUB 
¢: S3=GSO :: 
:: GO 
SUB 68 :: GOSUB 108 
117 S1=B3 :: S2=C1 :: S3=F0 
:: GOSUB 63 :: S1=C3 :: GOSU 
B 63 :: S3=GSO :: GOSUB 
67 2: S3=A1 :: GOSUB 68 
1=R :: S3=FO :: GOSUB 63 
118 GOSUB 63 :: S3=DS1 :: GO 
SUB 68 :: S3=E1 :: GOSUB 68 
2: S1=G3 :: S2=G1 :: S3= 
C1 :: GOSUB 64 :: GOSUB 64 
S2=DS1 :: GOSUB 65 :: S2=E 


G1 :: 
OSUB 64 :: 


:: S3=BF1 
:: GOSUB 64 :: 
:: GOSUB 65 :: S2 
GOSUB 65. :: T=X*.5 :: 
S1=EF3 :: S2=F1 :: GOSUB 64 


Non 


121 S1=F3 


EF3 :: 


3 3: S2 
OSUB 63 


122 S2=Al1 :: 


B3 :: 


GOSUB 64 
GOSUB 64 
,S3=GS0 


S2=Cl1 :: 


:: GOSUB 


s: T=xX 


:: V2=6 : 
GOSUB 


GOSUB 63 :: 


124 S2,S3=GS0 


SUB 63 


125 S1=D2 :: 


:: GOSUB 64 :: 
S1=C2 :: S2=E1 :: 
:: GOSUB 64 :: 
1=BF2 :: 
126 GOSUB 63 :: 
S1=A2 :: S2=C 


OSUB 63 
63 :: 

GSO :: 

3=A1 


S2=D1 :: 


1 


127 GOSUB 6 


T=Y 3:3: 
GOSUB 63 :: T 
S2,S3=AF1i :: 


UW ee ee 


me GU) oe ce 
Oe | i 


aN 
oo GU) te ee te 


Hh —t ee Ud ee 
GW I) ec fs ee 


Si=F1 : 


S3=F 


x 
GOSUB 


GOSUB 64 
S3=A1 
GOSUB 64 
S3=G0 
GOSUB 63 


S2, 


2: S2,S3=F0 


S1=BF2 : 


:: GOSUB 65 :: 


: S2=BF1 
T=Y+ 
: T=Y 

2: S3=BF4 


: GOSUB 
: S3=BF4 


:: GOSUB 


2: S2,S3=AF1 


oh 


137 S1=B2 :: 
s: GOSUB 63 
BF1 :: S3=AF1 
3 :: S2=F1 :: S3=BF1 :: GOSU 
B 64 :: S2=CS1 :: GOSUB 65 
138 S2=D1 :: GOSUB 65 :: S2= 
F1 :: GOSUB 64 :: GOSUB 64 : 
: S2=CS1 :: GOSUB 65 :: 
S1=D2 :: S2=D1 :: GOSUB 65 
139 SI=AF2 :: S2=F1 :: GOSUB 
64 :: S1=F1 :: GOSUB 64 :: 
S3=CS1 :: GOSUB 68 :: S3 
=D1 :: GOSUB 68 :: S1=R 3:: 
3=BF1 :: GOSUB 64 :: GOSUB 
4 
140 S3=GS0 :: GOSUB 67 :: S3 
=A1 :: GOSUB 68 :: GOSUB 82 
2:3: S1=B4 :: S2=C1 :: S3= 
FO :: GOSUB 63 :: S1=C4 :: G 
OSUB 63 :: S3=GS0 :: GOSUB 6 
7 


141 S3=A1 :: GOSUB 68 :: Stl= 
R :: S3=FO :: GOSUB 63 :: GO 
SUB 63 :: S3=DS1 :: GOSU 

B 68 :: S1=C4 :: S2=E1 :: GO 
SUB 65 

142 S1=G4 :: S2=G1 3:: S3=C1 
:: GOSUB 64 :: GOSUB 64 :: S 
2=DS1 :: GOSUB 65 :: S2= 

E1 :: GOSUB 65 :: S1=E4 :: S 
2=G1 :: GOSUB 64 :: S1=C4 
143 GOSUB 64 :: S3=CS1 :: GO 
SUB 68 :: S2=D1 :: GOSUB 65 


:: S1l=F4 :: S2=F1 :: S3= 

BF1 :: GOSUB 64 :: GOSUB 64 
2:2: S2=CS1 :: GOSUB 65 :: S2= 
D1 

144 GOSUB 65 :: : 
=EF4 :: S2=F1 :: S3=BF1 :: 
OSUB 64 :: S1=F4 :: GOSU 
B 64 :: S1=EF4 :: GOSUB 64 : 
: S1=C4 :: GOSUB 64 :: T=xX 
145 S1=BF4 :: S2,S3=GS0O :: G 


Q— 


OSUB 63 :: SiI=AF4 :: S2=A1 
: GOSUB 65 :: GOSUB 82 : 

: S1=B4 :: S2=C1 :: S3=F0 : 
GOSUB 63 :: S1=C4 :: GOSUB 
63 


146 S3=GS0O :: GOSUB 67 :: S3 
=A1 :: GOSUB 68 :: S1=R :: S 
3=FO :: GOSUB 63 :: GOSU 

B 63 :: S3=GS0O :: GOSUB 67 : 
: S3=A1 :: GOSUB 68 :: GOSUB 
82 

147 S1=C4 3: S2=C1 :: S3=F0 
:: GOSUB 63 :: GOSUB 63 :: S 
2,83=GS0 :: V2=30 :: GOS 

UB 63 :: S2=A1 2: V2=6 :: GO 

SUB 65 

148 S2=Ci :: S3=FO :: GOSUB 
63 :: GOSUB 63 :: S1=D4 :: S 
2=CS1 :: GOSUB 65 :: S1l= 

AF4 :: S2=D1 :: GOSUB 65 

149 S2=F1 :: S3=BF1 :: GOSUB 
64 :: GOSUB 64 :: S2=CS1 3:: 
GOSUB 65 :: S2=D1 :: GO 


SUB 65 :: S2=F1 :: S3=BF1 :: 
GOSUB 64 :: GOSUB 64 
150 S2=CS1 :: GOSUB 65 3; 
=D4 :: S2=D1 :: GOSUB 65 : 
S1=A4 :: S2=F1 :: S3=BF1 
>: GOSUB 64 :: S1=F3 :: GOS 
UB 64 :: S3=CS1 :: GOSUB 68 
151 S3=D1 :: GOSUB 68 :: S1l= 
R :: S3=BF1 :: GOSUB 64 :: G 
OSUB 64 :: S3=GS0 :: GOS 
UB 67 :: S3=A1 :: GOSUB 68 ;: 
: GOSUB 82 :: S1=B4 :: S2=C1 
152 S3=F0O :: GOSUB 63 :: S1= 
C4 :: GOSUB 63 :: S3=GS0 :: 
GOSUB 67 :: S3=A1 3:3: GOS 
UB 68 :: S1=R :: S3=F0O :: GO 
SUB 63 :: GOSUB 63 :: S3=DS1 


2=Right side of keyboard or 
Remote Control 2. 


153 GOSUB 68 

E1 :: GOSUB 6 
2=G1 :: S3=C1 
GOSUB 64 :: 


3=Standard Keyboard mode - All 
DS1 :: GOSUB 65 letter keys are upper case 


154 S2=E1 :: GOSUB 65 only, Puspose of Alpha Lock 
E4 :: S2=G1 : Key, with function keys 


:: GOSUB 64 returning Codes 1 to 15. 
GOSUB 64 3:3: 
68 :: S2=D1 
155 GOSUB 65 
F1o:: S3=BF1 
B 64 :: GOSUB 


4=PASCAL keyboard mode. 


5=BASIC keyboard mode - Both 
upper and lower case alphabet 
characters, FUNCTION key 
modes=l1 to 5, Control key 
codes=128 to 159 & 187. 


The RETURN-VARIABLE must be 
numberic variable. The 
computer uses the ASCII Code 
value of the key depressed to 
determine what action to 
undertake. This will be 
illustrated in some sample 
programs. 


The status-variable is also a 
numeric value which lets your 
know what is going on with the 
keyboard. The codes listed 
below show what the status 
variable would be after 
different computer operations 
have occurred:- 


CALL SOUND(1,R,30) 
T=-Y :: S3=D3 :: GOSUB 6 
S3=EF3 :: GOSUB 68 :: §S 
GOSUB 68 :: S3=B 


+l=A new key was depressed 
Since the performance of the 
CALL KEY routine. 


-l=The same key was pressed 
during this CALL KEY routine as 
the previous use of this 

m routine. 

: cze> °- 

This T.1.99/4A subprogram 
allows the transfer of a 
keyboard character directly 
into a program. It eliminates 
uing the INPUT statement while 
saving time obtaining data from 
a single key. Screen 
information is not disturbed by 
using CALL KEY because the key 
pressed is not displayed there. 


‘O=No key was pressed. 


How many times have you seen 
your screen "PRESS ANY KEY TO 
CONTINUE". This is a very 
simple two line routine to add 
to any program. It is usually 
used to place game instructions 
on the screen:- 


LIVE # PROGRAM STATEMENT 


510 CALL KEY(0,K,ST) 
The command has the forms 520 IF ST=0 THEN 510 


listed below:- 


Let us assume you need to make 
a simple "(Y/N)" decision. 
Perhaps whether you desire to 
"PLAY AGAIN" (Y/N). 


CALL KEY(0O,KEY,STATUS) 
CALL XEY(O,K,ST) 


O=kEY UNIT(May be any digit 
Q-5) 


LINE # PROGRAM STATEMENT 


CALL KEY(0,K,ST 
KEY=RETURN - Variable or key to 250 IF ST=0 (orn tA 
be pressed by user on keyboard 530 IF ST=89 THEN XXX 
. (Y)ES 
STATUS=STATUS - Variable or has 540 IF ST=78 THEN XXX 


a key been pressed on keyboard 


yet (N)O 


Some notes on the program 
above. The status-return (ST) 
check should be placed next to 
the CALL KEY statement. What 
the computer does is loop 
between these two program lines 
until a key is depressed. At 
that time it steps to the next 
appropriate statement and 
executes that instruction. 


FROM BUG BYics 
CALL KEY 


O=ho key pressed while I=A key 
pressed, 

The KEY-UNIT portion has the 
following effect upon keyboard 
Status or mode of operation: 


O=Console keyboard, in a mode 
previously specified by CALL 
KEY. 


l=Left side of console keyboard 
or Remote Control l. 
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REM CAREFULLY. 


SARE EFUL LY. 
CHECK YOUR 


210 


REM ####HHHAAHH HE 

REM # SQUARES # 

REM # BY 

REM # J.P.ASHMORE # 

REM # TI.S.H.U.G. # 

REM ###H#HRARAHHAH BH 

CALL CLEAR 

GOSUB 1420 

GOSUB 970 

100 PRINT "DO YOU WANT TO KN 

OW THE RULES YES OR NO?" 

110 CALL KEY(0,K,S) 

IF S=0 THEN 110 

IF K<>89 THEN 400 

GOTO 150 

CALL CLEAR 

CALL SCREEN(14) 

PRINT "THE INTENT OF THE 
GAME IS TO PLACE A SQUARE, 

OF UNKNOWN SIZE, IN THE 

MIDDLE, OF THE SCREEN." 

180 FOR DELAY=1 TO 1400 

190 NEXT DELAY 

200 PRINT : : : : 

210 PRINT "THE FIRST NUMBER 
STATES HOW FAR FROM THE TOP, 
THE UPPER LEFT CORNER I 
S.!!THE NUMBER YOU INPUT VAR 
IES!" 

220 FOR DELAY=1 TO 1400 

230 NEXT DELAY 

240 PRINT : : : 3: 

250 PRINT "THE NEXT NUMBER S 

TATES! HOW FAR FROM THE LEFT 
THE SQUARE IS!!! !THE NU 

MBER VARIES! !}!1:" 

260 FOR DELAY=1 TO 1400 

270 NEXT DELAY 

280 PRINT : : 3: : 

290 PRINT "THE THIRD NUMBER! 
STATES THE SIZE OF THE SQAR 

E,THIS TOO VARIES AND ON 

LY !ONE! SQUARE FITS." 

300 FOR DELAY=1 TO 1400 

310 NEXT DELAY 

320 PRINT : : 3: : 

330 PRINT "THE LAST NUMBER I 

S THE COLOR OF THE SQARE YOU 

R CHOICE !!!!LUuCKY you!" 

340 FOR DELAY=1 TO 1400 

350 NEXT DELAY 

360 PRINT : : : 3: 

370 PRINT TAB(10);"GOOD LUCK 
| 


FOR DELAY=1 TO 400 
NEXT DELAY 

CALL CLEAR 

CALL COLOR(16,1,1) 
CALL SCREEN(5) 
ROW=H ~ 

PRINT "TOP LINE"; 
RANDOMIZE 

INPUT H 

IF H=1 THEN 460 
H=H+INT(RND*3) 

IF H<>7 THEN 510 

PRINT "*yOou*" 

COLUMN=V 

PRINT "DISTANCE FROM SID 


SOME PROGRAMS 
THE LISTINGS 


110 | 

120 REM CHECE YOUR TYFING. HO&PFy 
120 REM HERE ARE SOME PROGRAMS 
140 REM CAREFULLY. THE 

pale, CHECE 


YOUR esieeel 


THE LISTIR 
TYFING. HE 


FOR YOU TO 
ARE FROM TE 
REY 
, YO 


TYPE IN. 


Y 


me IN. 
ee TESTED 
KEYING, 


RANDOMIZE 
INPUT V 
IF V=1 THEN 540 
V=V+INT(RND* 3) 

IF V<>11 THEN 590 
PRINT "**MADE**" 
REPETITION=Q 

PRINT "SIZE OF SQUARE"; 
RANDOMIZE 

INPUT Q 

IF Q+H>20 THEN 620 

IF Q+V>30 THEN 620 


IF Q<>10 THEN 720 
PRINT "XRREAKKKKK[ TAKKKKKK 


670 IF H<¢>7 THEN 720 

680 IF V<>11 THEN 720 

690 IF Q<>10 THEN 720 

700 F=2 

710 GOSUB 980 

720 COLOR=Z 

730 PRINT "COLOR OF SQUARE"; 
740 INPUT Z 

750 IF Q=1 THEN 1360 


CALL HCHAR(H+Q,V+1,129,0 


CALL VCHAR(H,V,130,Q) 
IF Q=1 THEN 1400 
CALL VCHAR(H,V+Q,131,Q) 
CALL HCHAR(H-1,V+1,132,Q 


CALL CHAR(134,"000000FF" 


IF Q=1 THEN 1380 

830 CALL CHAR(135,"080808080 
8080808") 

840 CALL HCHAR(12,15-Q/2,134 
,Q+3) 

850 CALL VCHAR(10-Q/2,16,135 
,Q+5) 

860 CALL CHAR(132, "000000000 
OOOFF") 

870 IF Q=1 THEN 1530 

880 FOR I=1 TO Q-1 

890 CALL VCHAR(H,V+1I,153,Q) 
900 NEXT I 

910 CALL COLOR(16,2Z,2Z) , 
920 CALL COLOR(13,16,1) 

930 CALL SCREEN(5) 

940 FOR DE=1 TO 1200 

950 NEXT DE 

960 GOTO 400 

970 F=1 

980 CALL COLOR(13,16,1) 

990 CALL SCREEN(11) 

1000 CALL CHAR(130,"01010101 
01010101") 

1010 CALL CHAR(131 
80808080") 

1020 CALL COLOR(2,7,1) 

1030 CALL CHAR(129,"FF") 
1040 CALL CHAR(132,'00000000 
OOO000FF") 

1050 CALL HCHAR(2,3,132,29) 
1060 CALL HCHAR(23,3,129,29) 
1070 CALL VCHAR(3,32,131,20) 
1080 CALL .VCHAR(3,2,130,20) 


1090 PRINT TAB(7) ;"****SQUAR 
ES*xxx"! 


, 80808080 


TSEE YOUR 
‘ROGRAMES. 
THE 


Cc So 


YOLIE 


TAKE YOUR TIME AND 
FROGRAMS. 
AND ENJOY THE 


SO 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


CALL 
NEXT 
CALL 


CALL 
NEXT 


CALL 
NEXT 


CALL 


1310 CALL 
1320 IF S= 
1330 IF K< 
1340 GOTO 
1350 GOTO 
1360 CALL 
Q) 

1370 
1380 
Q) 

1390 
1400 
Q) 

1410 
1420 
O SQUARES" 
1430 PRINT 
1440 
1450 
1460 
1470 
1480 
TPUT 
1490 
1500 
TO_ 7 SQUARE 
1510 CALL 
1520 
1530 


GOTO 
CALL 


GOTO 
CALL 


GOTO 


CALL 
CALL 


CALL 
REM O 


FOR I 


NEXT 
GOTO 


PROGRAM 


PROGRAMS — 


IF F= 


PRINT 


- TISHUG. 
TYFE 
IF THEY CRASH 
TISHUG. 


HCHAR(17,12,129,9) 
VCHAR(7,11,130,10) 
VCHAR(7,21,131,10) 
HCHAR(6,12,132,9) 
HCHAR(18,10,42,13) 
VCHAR(5,10,42,13) 
VCHAR(5,22,42,13) 
HCHAR(5,11,42,11) 


FOR A=1 TO 25. 


SCREEN (2) 
A 
SCREEN (11) 


FOR U=1 TO 10 


SOUND(200,440,2) 
U 


FOR T=1 TO 30 


SCREEN (7) 
T 
1 THEN 100 ELSE 12 


CLEAR 
"PLAY AGAIN YES O 


KEY(0,K,S) 

0 THEN 1310 

>89 THEN 1570 

400 

800 
HCHAR(H+Q,V+0,129, 


770 
HCHAR(H-1,V+1,132, 


830 
VCHAR(H, V+Q+1,131, 


800 


PRINT TAB(5);"WELCOME T 


HCHAR(2,2,42,30) 
VCHAR(2,2,42,21) 


CALL VCHAR(2,31,42;21) 


HCHAR(22,2,42,30) 
PEN #1:"SPEECH" ,OU 


REM PRINT #1:"//22 48" 
REM PRINT #1:"WELLCOME _ 


s" 
CLEAR 


RETURN 


=1 TO Q 


CALL VCHAR(H,V+1I,153,Q0) 


I 
910 
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~ The fo 


llowing programme 


presented itself to me late one 
night while i was towing with 
the use of asterisks (CHR 42) 


as sprites. The programme 
makes use of two important 
features of sprites- 


1. The ability to move a 
sprite one pixel at a time. 


2. the ability to 
superimpose one sprite over 
another. 


While amazing simple, the 
programme is most effective. 


sii; 


100 REM KEKKKKKEKKKEKKKKKKEKEK 


110 REM SPRITIPEDE 


120 REM BY GARRY CHRISTENSEN 


125 REM OF TI.B.U.G 


130 REM FRX KKKKKKKKKKEKKEKKEKKE 


140 CALL CLEAR :: CALL SCREE 


N(16):2: PRINT "SPRITIPEDE"™ 


150 CALL COLOR(2,2,2):: CALL 


HCHAR(24,1,42,64) 
160 FOR A=4 TO 109 STEP 5 : 
FOR B=1 TO 7 :: GOSUB 190 
> NEXT B :: NEXT A 
170 FOR A=109 TO 4 STEP -5 


: FOR B=7 TO 1 STEP -1 :: GO 


SUB 190 :: NEXT B :: NEX 
TA 
180 GOTO 160 


190 CALL SPRITE(#B,42,2,B*3+ 
A,150,#B+7,42,2,B*3+A+16,150 


,#B+14,42,2,B*3+A+32,150 
,#B+21,42,2,B*3+A+48,150) 
200 RETURN 


the preschoolers amused. It 
plays the tune of 5 Little 
Ducks, while the ducks waddle 
across the screen. I wrote it 
to demonstrate the T.I. at my 
daughter's preschool, and the 
kids really loved it. 

10 REM KAEKKKKEKKKEKKKKKKKEKKEK 


20 REM * 5 LITTLE DUCKS * 
30 REM * BY S. NICHELSEN * 
40 REM * OF TI.B.U.G * 
50 REM KKKKKKKEKEKKKKEKKKKKESE 
60 COUNT=6 

70 CALL CLEAR :: CALL SCREEN 
(6):: CALL HCHAR(10,1,40,480 
):: CALL COLOR(2,3,3) 

80 CALL HCHAR(2,8,143,3):: C 

ALL HCHAR(3,7,143,5):: CALL 
HCHAR(4,6,143,7):: CALL 
HCHAR(5,5,143,9) 

90 CALL HCHAR(6,6,143,7):: C 
ALL HCHAR(7,7,143,5):: CALL 
HCHAR(8,8,143,3):: CALL 
COLOR(14,13,13) 

100 CALL VCHAR(9,9,135,4):: 
CALL COLOR(13,7,7):: CALL CH 
AR(127,"88FFFF888B8FFFF88 
")s: CALL HCHAR(10,1,127,8) 
110 CALL HCHAR(10,10,127,23) 
*: CALL HCHAR(24,1,127,32):: 
CALL COLOR(12,16,3) 

120 CALL CHAR(96,"0000000207 
1FOF01010000000000000040F0CO 
808080008000000000000000 
00") 

130 CALL CHAR(104,"000000020 
71FOF01010000000000000040F0C 
O80808000800000000000000 
00") 

140 CALL MAGNIFY(4) 

150 CALL SPRITE(#1,96,16,150 
,48,0,8):: CALL SPRITE(#2,10 
4,11,130,24,0,8):: CALL 
SPRITE(#3,104,11,110,24,0,8) 
160 CALL SPRITE(#4,104,11,15 
0,20,0,8):: CALL SPRITE(#5,1 
04,11,90,40,0,8):: CALL 
SPRITE(#6,104,11,90,20,0,8) 
170 DATA 330,300,294,150,294 
,150,262,300,523,300,494, 300 
,440,300,392,600,392,300 
,262,150,262,150,349,300, 330 
, 300 

180 DATA 330,300,294,300,294 
,600,330,150,330,150,294,300 
,202,300,523,300,494,300 
,440,300,392,300,392,150,392 
, 300 

190 DATA 262,300,349,300,330 
,150,330,150,294, 300,294, 300 
,262,600 

200 RESTORE 

210 FOR A=1 TO 33 

220 READ T,D 

230 CALL SOUND(D,T,1) 

240 NEXT A 

250 IF COUNT=1 THEN 280 

260 CALL DELSPRITE( #COUNT) 
270 FOR DELAY=1 TO 500 :: NE 
XT DELAY 

280 COUNT=COUNT-1 

290 IF COUNT=0 THEN 340 

300 IF COUNT]1 THEN 200 

310 CALL SPRITE(#2,104,11,13 
0,204,0,8):: CALL SPRITE(#3, 
104,11,110,200,0,8) 

320 CALL SPRITE(#4,104,11,15 
0,190,0,8):: CALL SPRITE(45, 
104,11,90,220,0,8):: CAL 

L SPRITE(#6,104,11,90,200,0, 
8) 

330 GOTO 200 

340 CALL MOTION(#1,0,0):: CA 

LL MOTION(#2,0,0):: CALL MOT 


This is a programme to keep 


ION(#3,0,0):: CALL MOTIO 
N(#4,0,0)2: CALL MOTION( #5,0 
,0) 

350 CALL MOTION(#6,0,0) 

360 FOR DELAY=1 TO 900 :: NE 
XT DELAY 

370 END 


; . 
*Oaue. . . 


This will keep kids amused. 
Press any number to make the 
stickman dance. If you press 
zero the program ends. Basic 
only is required. At the 
moment, there is no music with 
it. Perhaps somebody out there 
would like to write some music 
for him to dance to. 

10 CALL CLEAR 

20 PRINT TAB(8);"STICKMAN": 

: : :TAB(3);"BY CHICK DE MAR 
TA" 

30 PRINT : : : : : :"PRESS A 
NY NUMBER TO MOVE": :"STICKM 
AN'S ARMS OR LEGS" 

40 PRINT : :"PRESS 0(ZERO) T 
O QUIT": : : : 

50 FOR DX=1 TO 600 
60 NEXT DX 

70 CALL CLEAR 

80 CALL SCREEN(11) 
90 CALL COLOR(1,2,1 
100 CALL COLOR(8,1, 
110 CALL COLOR(9,1, 
120 CALL COLOR(10,1 
130 CALL COLOR(11,1 
140 CALL COLOR(12,1 
150 CALL COLOR(13,1 
160 CALL CHAR(34,"0 
7F7FFF") 

170 CALL CHAR(35,"80EQOF8FCFC 
FEFEFF") 

180 CALL CHAR(36,"FFFEFEFCFC 
F8E080") 

190 CALL CHAR(37,"FF7F7F3F3F 
1F0701") 

200 S$="FFFFFFFFFFFFFFFF" 
210 CALL CHAR(38,S$) 

220 CALL CHAR(88,S$) 

230 CALL CHAR(98,S$) 

240 CALL CHAR(105,S$) 

250 CALL CHAR(115,S$) 

260 CALL CHAR(125,S$) 

270 CALL CHAR(135,S$) 

280 REM ***HEAD*** 

290 CALL VCHAR(6,16,38,4) 
300 CALL VCHAR(7,15,38,3) 
310 CALL VCHAR(6,15,34) 

320 CALL VCHAR(6,17,35) 

330 CALL VCHAR(8,15,37) 

340 CALL VCHAR(8,17,36) 

350 REM ***THE BODY*** 

360 CALL HCHAR(10,14,38,5) 
370 CALL VCHAR(11,15,38,5) 
380 CALL VCHAR(11,17,38,5) 
390 CALL HCHAR(16,15,38,3) 
400 REM **ARMS & LEGS ** 

410 A=4 

420 B=28 

430 FOR I=6 TO 9 


CONTINUED on page }§ 


"Sudhey flews Digest 


FT > : 
WA Pz CONTINUED from page/§ 


440 CALL HCHAR(I,A+I,88) 
FAERIE ON #50 CALL HCHAR(T,B-1,88) 
@ 0 NEXT I 

fiat YOBER LNA 490 CALL HCHAR(10,10,98,4) 

480 CALL HCHAR(10,19,98,4) 

HEPES ae 90 CALL VCHAR(11,13,108,5) 

ERPS Pari fr a Ly 300 CALL VCHAR(11,19,105/5) 
Gawey Gene GEC Genin 
TITY EY CHT NG 


510 CALL HCHAR(17,14,115) 
Naw”, anny 


520 CALL HCHAR(16,18,115,4) 
530 CALL HCHAR(18,13,115) 
540 CALL VCHAR(17,21,115,2) 
550 CALL VCHAR(19,12,115,4) 
560 CALL HCHAR(22,11,115) 
570 CALL HCHAR(19,21,115,2) 
580 CALL VCHAR(17,15,135,7) 
590 CALL VCHAR(17,17,135,7) 
600 CALL HCHAR(23,18,135) 
610 CALL HCHAR(23,14,135) 
620 CALL HCHAR(16,11,125,4) 
630 CALL VCHAR(17,11,125,3) 
640 CALL HCHAR(19,10,125) 
650 CALL HCHAR(17,18,125) 
660 CALL HCHAR(18,19,125) 


290 IF Y+N=20 THEN 990 

300 S=INT(RND*50) +1 

310 IF S=R THEN 300 

320 R=S 

330 PRINT "WIE HEISST ";A$(R 
);" AUF DEUTSCH?": : 

340 INPUT C$ 

350 IF C$=B$(R)THEN 400 


FROM TI HOME COMPUTER USER 
CLUB YORKSHIRE, in England. 


Here is a program which may 
be of assistance to anyone 
learning a foreign language. 
It is in German but can 
easily be changed to French, 


Spanish, Latin, etc. 360 T=T+1 670 CALL VCHAR(19,20,125,4) 
The user must feed in his 370 IF T=2 THEN 430 680 CALL HCHAR(22,21,125) 
own data, consisting of fifty 380 PRINT : :"VERSUCH ES NOC 690 REM **PROGRAM** 
words in English and_ the H MAL" 700 CALL KEY(0,K,S) 
foreign language, 390 GOTO 340 710 IF S=0 THEN 700 
400 PRINT : :"RICHTIG!": : : 720 IF K-48=0 THEN 990 
E.G. : 730 ON K-48 GOTO 750,770,790 
490 DATA TABLE, DER TISCH 410 Y=Y¥+1 ,820,850,880,910,940,970 
500 DATA WINDOW, DAS 420 GOTO 280 740 ON ERROR GOTO 700 
FENSTER 430 PRINT ::: : 750 CALL SCREEN (6) 


760 GOTO 700 

770 CALL SCREEN(14) 
780 GOTO 700 

790 GOSUB 1070 

800 CALL COLOR(8,2,1) 


440 PRINT NAME$;" BIST DU JA 
DUMM!!"s ¢ 

450 PRINT "ICH SAGE ES DIR.. 
ee sA$(R);" HEISST ";B$(R) 
460 N=N+1 


510 DATA ROOM, DAS ZIMMER 


ETC 


The program will then, each 


time it is run, ask any 470 PRINT : :: : 810 GOTO 700 
twenty of these words at 480 GOTO 280 820 GOSUB 1070 
random before ending the test 490 REM 830 CALL COLOR(9,2,1) 
and giving a final score and 500 REM 840 GOTO 700 
judgement. 510 REM 850 GOSUB 1070 

The DATA statements can of 520 REM 860 CALL COLOR(10,2,1) 
course be amended at any time 530 REM 870 GOTO 700 


880 GOSUB 1110 
890 CALL COLOR(11,2,1) 


540 REM LINES 490 TO 980 ARE 
DATA STATEMENTS 


to suit the requirements of 
the user. 


550 REM 900 GOTO 700 
Note to German students: 560 REM 910 GOSUB 1110 
the Umlaut is replaced by an 570 REM 920 CALL COLOR(12,2,1) 
E after the relevant vowel. 980 REM 930 GOTO 700 
Hence TUER, HOEREN, BAER, 590 REM 940 GOSUB 1110 


990 CALL CLEAR 
1000 PRINT ".....eENDE DER P 
RUEFUNG.....'2 2 3 

1010 PRINT Y;"MAL RICHTIG" 
1020 PRINT N;"MAL FALSCH"s;; 
1030 PRINT Y>18 THEN 1080 
1040 IF Y>14 THEN 1110 

1050 PRINT NAME$;" DAS IST G 
AR NICHT GUT" 

1060 PRINT : :"DU MUSST FLEI 
SSIGER SEIN!" 

1070 GOTO 1130 


950 CALL COLOR(13,2,1) 
960 GOTO 700 

970 GOSUB 1150 

980 GOTO 700 

990 PRINT "THE END" 
1000 FOR ROLL=1 TO 4 
1010 PRINT 

1020 NEXT ROLL 

1030 FOR DX=1 TO 900 
1040 NEXT DX 

1050 CALL CLEAR 

1060 END 


ETC. 


Hoping the program will 
make vocabulary-learning a 
little more effective and 
enjoyable. 


Your Faithfully, 
Derek Megginson. 
100 CALL CLEAR 
110 PRINT "WIR MACHEN JETZT 


Ts 
EINE - ee PRUEPUNG': 1080 PRINT "SEHRR GUT, ";NAM 1070 FOR I=8 TO 10 
120 Y=0 E$ 1080 CALL COLOR(I,1,1) 
130 N=0 1090 PRINT : :"ICH GRATULIER 1090 NEXT I 
140 FOR D=1 TO 450 E!" 1100 RETURN 
150 NEXT D 1100 GOTO 1130 1110 FOR I=11 TO 13 


1110 PRINTN"JA, DAS GEHT, ; 1120 CALL COLOR(I,1,1) 


160 PRINT "WIE HEISST DU EIG 


ENTLICH?": : NAMES 1130 NEXT I 
170 INPUT NAME$ 1120 PRINT : :"ABER GUT IST 1140 RETURN 
ES NICHT!" 1150 FOR I=1 TO 6 


180 CALL CLEAR 

190 PRINT "OKAY,";NAME$;" FA 
NGEN WIR AN ... " 

200 FOR D=1 TO 700 
210 NEXT D 

220 CALL CLEAR 

230 RANDOMIZE 

240 DIM A$(50),B$(50) 
250 FOR J=1 TO 50 

260 READ A$(J),B$(J) 
270 NEXT J 

T=0 


1130 FOR D=1 TO 2000 
1140 NEXT D 

1150 CALL CLEAR 

1160 END 


1160 CALL COLOR(1,7,1) 
1170 FOR DX=1 TO 50 
1180 NEXT DX 

1190 CALL COLOR(1,2,1) 
1200 FOR DX=1 TO 50 
1210 NEXT DX 

1220 NEXT I 
1230 RETURN 
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"TANGO INDIA NINER NINER FOUR 
ALPHA CALLING TOWER - MAYDAY" 


Have you ever wanted to 
experience the joy of flying as 
only a pilot can, or perhaps 
you are a private pilot who has 
difficulty finding the cash to 
spend on flying time needed to 
keep your licence current and 
your skills from getting rusty. 
Well hold on to the seat of 
your pants cause Dow Aircraft 
Corp has a set of wings that 
fit into the console of your 
99'er and provide the thrill of 
real time flying. 


The aircraft-er-program 
comes with a handbook that has 
all the spec's of the aircrafts 
performance, and theres a 
section on the basics of flying 
for the novice pilot. When you 
run the program a menu is 
displayed which shows the 
following procedures:- 


- TAKE OFF 
- IN FLIGHT 
«- LANDING 
SHORT FIELD LANDING 


1 
2 
3 
4. 
5. I.L.S APPROACH 


Each of these is well 
covered in the handbook. The 
first two are simple enough to 
perform, but the rest require a 
lot of skill in judgement and 
timing to successfully land the 
aircraft in one piece. Even if 
you are a pilot you may find 
difficulty with these as I did 
at first (perhaps I needed an 
endorsement on this aircraft 
model). 


The solution I found was a 
lot of practice and a 
familiarity with the handbook 
instructions. If you have the 
misfortune of crashing you'll 
find the sound effects very 
dramatic. 


This is followed by an 
accurate report on the 
aircrafts attitude at impact 
with the ground or the reason 
for your failure at the I.L.S. 
approach, or the cause of break 
up while flying maneuvers. 


After you select your choice 
from the menu, you specify wind 


which can be from none to 
Whwsevere, 


£0 


SOrt WARE 
REVIEW 


and turbulence (chop) strength, - 


This program offers a 
tremendous challenge, and if 
you are up to that challenge 
you will never get bored with 
it. The variety is endless. 
You do not need to exit one 
type of procedure to try 
another, as you can fly your 
way through several different 
ones. For example you can do 
touch-and-go circuits around 
the airport, and then carry on 
into a navigational flight. A 
word of warning here, extensive 
flying can cause pilot fatigue. 
So if you like the idea of 
being a pilot this program is a 
must. 

Its called DOW FLIGHT TRAINER. 


Your monitor displays all 
the cockpit instruments of a 
single engine aircraft 
reasonably well considering 
this program is in ordinary 
basic. The pointers are 
depicted by dots and these can 
be difficult to follow at times 
as the dials are not numbered. 


The manual does specify the 
range covered by each 
instrument, but this can be 
hard to remember at times when 
you are flying under stress and 
trying to scan several j 
instruments, as indeed you must 
sometimes do such as when 
making an instrument approach 
using the radio navigational 
aids. This is the only 
criticism I make of this 
otherwise superb program. I 
was amazed at the attention to 
details of this program. 


Tiwy, 
© 
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And ABovT to BRuct/ Dow 0020 
60 wHhlAT'S THE PROBLESI, TOWER! 


The other offer is for 
anyone wishing to order the 
"GRAPHICS CODE GENERATOR"; a 
product of SOFTWARE CAROUSEL. 

This prize-winning program 
has been demonstrated at club 


The aircraft has a trim 
adjustment so that you can set 
your flying speed and engine 
rev's can be controlled so that 


you can make a safe touchdown meetings, in Cin-Day User 
by reducing your rate of Grp, for those wishing to 
Gescent which must be less than more easily incorporate 
300 feet per minute for dramatic graphics into their 
landing. Yes of course programming. Use of the 
imperial measures are used GENERATOR requires a Ml 
throughout. 99/4A, Extended Basic, and 

either a cassette recorder or 

Console keys A to L are used a disk drive. 


to select various modes or to 


alter aircraft instruments and The prices for ordering 
controls, and the joystick is this fine utility are as 
used in the usual way to follows: Cassette-$18.45, 
control aircraft attitude. Cassette Demo Tape-$22.45, 


‘Diskette-$21.45, 
Demo Tape-$25.45, 
Only-$4.00. 


Diskette 
Demo Tape 


Joystick effectiveness (or 
stick force) can be altered 
with keys 1 to 9, and if you 
get in a jam, unlike with a 
real aircraft, this one can be 
stopped and suspended in time 


To place your orders: 
Please send your Cheques, for 


- the appropriate amount, 
white YOU eee eat mele or payable to Mary Norton, 3536 
ave a ° Oakmeadow Ln, Cincinnati, 
This is also handy if you ‘OHTO, 45239. 
h ffee 
need to need to have a co Use an International Bank 


break, or visitors interrupt a 


flight Cheque for the above amounts 


in U.S.DOLLARS,plus a couple 


The manual also covers some of dollars extra for postage. 


advanced pilot procedures and 
challenges which you can try 
when you are reasonably 
confident and capable. There 
are Giagrams that help you 
understand some procedures. 


We extend greetings to our 
friends at the CIN-DAY USER 
GROUP from TI.S.H.U.G. 


oe? See” 


WE ALL LIKE TO GIVE A LIFT TO 
THE APPEARANCE OF OUR PROGRAM 
INTRO AND ONE METHOD IS RAIN- 
BOW WRITING. 


THAT IS MULTI-COLORED LETTERING 


TO DO THIS IS VERY EASY.AT 
THE BEGINNING OF YOUR PROGRAM 
INSERT THIS PROGRAM. 

10 CALL COLOR(5,5,71) 

20 CALL COLOR(6,7,1) 

30 CALL COLOR(7,11,1) 

40 CALL COLOR(8,13,1) 

OF COURCE YOU MIGHT WANT TO 


CALLING EACH COLOUR BACK TO 


LINE NO,CALL COLOR(5,2,1) 
ANOTHER ITEM FOR NEW COMERS IS 
HOW TO EASILY MAKE SHAPES IN 
BLOCK FORM. 

TO MAKE AN OBLONG SHAPE TO 
REPRESENT A CITY BUILDING TRY 
THE FOLLOWING EXAMPLES. 

10 FOR X=1 TO 10 

20 CALL HCHAR(24-X,2,6) 

30 CALL HCHAR(24-1,224+X,12-2) 
50 NEXT X 

CALL CLEAR 

FOR X=1 TO 10 

CALL VCHAR(8,0+X,42,16) 

CALL VCHAR(11,14+X,42,13) 


cap REVIEW 
A with 


It's always good to review 
a local pice of software and 
this one is the first from 
ASHWARE. 


This program is a game, 
"THE RAINBOW PYRAMID". The 
aim is simple, to move a 
little green man from bottom 
centre of the screen to the 
centre of a spaceship at the 
top of the screen. 


A snap, er, but there is a 
catch, isn't there always! 


First a swim through a 
crocodile infested moat then 
a squeeze between the dreaded 
raidants & fly up past the 
guards evading the falling 
rocks. 


Once at the top enter the 
correct spaceship, which 
changes at random from game 
to game, and score your 
points. 


RESET THE COLORS THIS IS DONE BY 


ITS ORIGINAL SETTING LIKE THIS. 


CALL HCHAR(11-X,104X,42,20-2*X) 


Of course if it is the 
wrong one back you go again. 
It is always the same 
Spaceship, for the duration 
of the game. 


The guards will hold you 
or throw you off, the rocks 
drag you down, one snap from 
the crocs will send you back 
and the dreaded radiant aura 
is impassable. 


Cheating is to no avail, 
going off the pyramid and 
trying to sneak in the back 
way will only make you start 
again. 


If this wasn't bad enough 
te pyramid is haunted by an 
invisable ghost who will, 
without warning, throw your 
man off the pyramid, very 
disconcerting. 


Also the slower you score 
the more he strikes. At the 
top you enter the spaceship 
and once at the centre of it 
you score points, then your 
start again. 


You do have a friend PROTY 
who was also on the ship. He 
was captured and escaped 

however, he is trapped on the 
pyramid. 


Proty is shapeless and can 
be anything, when you bump 
into him he gives the player 
200 points. 


It is a very colourful 
game and something is 
happening all over the 
screen, the joystick control 
is excellent. 


There is a choice of 
levels to start from an easy 
level which need only be 

played if wanted. 


One item that particulary 
impressed my young visitors 
was the means of changing 
levels. 


On the second level, a 
purple and gold door appears 
as you move to the next level 
it looked very good. ; 


To change levels how ever 
you must reach at least 1000 
points. 


On the whole a very good 
game with excellent graphics, 
cost $15. 


The program runs in 
extended basic on a standard 
console with joysticks. 

And now, here are the 
instructions to ... 


"THE RAINBOW PYRAMID" By 
John Ashmore 


You are an explorer who 
has crashed his spaceship on 
a strange world. The natives 
have stolen your ship and 


placed it on top of a 
pyramid. 

To deceive you they have 
copied it and placed the copy 
on the pyramid, as well, 
there are guards on the 
pyramid who will stop and 
throw you off. 


Your task is to find the 
real ship and fuel it. MThis 
is done by taking the water 
from the moat and leaving it 
in the ship, automatically 
fueling the ship. 


Swimming through the moat 
soaking up water and avoiding 
the crocodiles. Fly between 
the golden radiants, move up 
the pyramid and avoid the 
rocks. 

When you arrive at the top, 
line yourself up with the 
entrance to the spaceship, 
then move until you cover the 
man inside the ship. 

When you do, the water will 
automatically fuel the ship, 
you will score 100 points and 
start again. 

Of course you must pick the 
right ship or you will be 
sent back to the start 

again. 


There are Four Levels. To 
move from level to level you 
must get at least 1000 points 
where upon a door will appear 
in the middle of the pyramid. 
Go through the door and you 
will appear on the next 
level. 

The pyramid is haunted by an 
invisable ghost who will stop 
you sometimes. The slower 
you are to score the more he 
will strike. 


However, you have a 
friend, PROTY, who was also 
on your ship when it crashed. 
He was captured by the 
natives and escaped he is now 
trapped on the pyramid but 
because he can take any shape 
neither you or the guards can 
see him. , 


If you meet PROTY he will 
reward you with 200 points 
the magic door appears and 
time stands still until you 
go through the door. 


On the first level, for 
every count you get three 
turns and locating the man in 
the spaceship is easy. The 
second level is a little 
harder. 


On the third level,the 
background changes to white 
and all that can be seen of 
the guards is there feet or 
hands. 


Level points are scored 
bottom right, progressive 
level score, upper right. 
Game Ends when you have 
received the max points on 
the forth level. 
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New items available from 
the TISHUG Shop include the 
following : 


TI-FORTH - Diskette and 
reference manual - $30.00. 
Please note that a full 
system configuration and the 
Editor Assembler Module are 
required to operate TI-FORTH. 


PROGRAMS FOR THE TI 
COMPUTER ~ $20 - a book 
containing over 40 programmes 
to type in. Some of the 
titles are Alligator Alley, 
‘Charades, Personal Banking, 
Mail Writer, Metric 
Converter, Disk Lister and a 
huge adventure entitled 
Adventure in Oz. By buying 
this book in bulk, TISHUG is 
able to offer it to members 
at a cost of only $20. The 
book is thorougnly 
recommended. 


INTRODUCTION TO ASSEMBLY - 
$21 - this book is also 
highly recommended for those 
into Assembly Language. The 
11 chapters include 
Addressing, Registers, 
Coding, Assembling and 
Running a Program and File 
Handling. Two sample 
programs to type in are also 
included. 


BEST OF 99'er - $25 - yes 
the initial order finally 
arrived and we have at least 
20 very happy people. This 
book is probably the best $25 
investment any TI owner can 
make. Another 40 copies have 
been ordered and hopefully 
will arrive in about 6 weeks 
time. Depending on 
air-freight costs it is hoped 
to sell still for $25. 


WIDGETS - $39.95 - all but 
3 of the 20 ordered have been 
reserved. First in gets 
them. 


SMART PROGRAMMING GUIDE - 
$8 - 20 more copies have 
arrived from the publisher. 


HOME COMPUTER MAGAZINE - 
there is still no word as to 
when Volume 4 Issue 2 will 
arrive. Our standing order 
for HCM has been increased to 
100 copies and hopefully we 
will still be able to sell 
for $8. 


THIRD PARTY SOFTWARE - 
TISHUG has entered into 
licencing agrements with 
American Software Companies 
and will shortly be selling 
software to members. Some 
titles include Void, 
Spritemaker, Heist, Sneaky 
Snake, Wallaby and Horrors. 
More details of this will be 
included in a later column. 
It is hoped to demonstrate 
some of this Software at the 
July meeting. 


THIS MONTHS SOFTWARE - 
Owing to popular request is 
another Educational 
tape/disk. Education Volume 
1 No. 2 contains the 
following programmes - Color 
Fractions, Color Math, 
Elements, Fireball, 
Hare-n-Tortoise, Australia 
Quiz, Spell Down and World 
Birds. 


PREVIOUS SOFTWARE - all 
previous issued tapes are 
still available with the 
exception of Home Use No. 1. 
Unfortunately a couple of the 
programmes on the tape 
require a 32K system to run. 
A new Home Use tape is 
currently in the planning 
stage. REMEMBER all tapes 
are $3 each at meetings or $4 
each by mail. Disks are $6 
each at meetings or $7 by 
mail. 


BOXES OF DISKS - now $34 
for a box of 10. Memorex has 
given TISHUG a better deal so 
we are able to reduce the 
price by one dollar. 


See you at the SHOP. 


BEST OF 99'er - A REVIEW 
Having a personal collection 
of all the early issues of the 
old 99'er Magazine you could 
say that there is nothing in 
the Best of 99'er for me. To a 
certain extent you would be 
right,BUT I found when reading 
through it that it is far 
better set out than the 
Magazines, the programme 
listings are easier to read, 
hence the less likelihood of 
errors at the keyboard and of 
course it is all together 
which saves you flicking 
through 6 magazines looking 
for that elusive article. 


The Best of 99'er is set out 
in 8 chapters, Starting Out, 
Programming Techniques and 
Languages, Inside Basic and 
Extended Basic, Logo, Assembly 
Language, Computer Assisted 
Instruction, Computer Gaming ( 
and Applications and 

Utilities. In each of these 
chapters there is something 

for everyone. For instance in 
Starting Out there is a 4 page 
article entitled "A Beginners 
Guide to Cassette Operation 
With a Home Computer". This 
article provides a wealth of 
detail which is sure to answer 
all the problems that are 

bound to crop-up. Similarly in 
Chapter 6, Computer Assisted 
Instruction there is an 
excellent article entitled 
“Almost everything you ever 
wanted to know about music... 
But were afraid to ask". This 
article even taught me a bit 
about music and, bear in mind 
that I'm not skilled at all on 
the subject. 


Page after page of useful 

information is in this book, 
and I for one wouldn't be 
without it. Thoroughly and 
very highly recommended. 


TI INVADERS, AND TOMBSTONE 
CITY...In perfect condition. 
$20 each. 

Please contact Philip on 
(045)781429 after 4pm. 


CHISHOLM TRAIL, PERCENTS AND 
FRACTIONS, all AS NEW 
$20.00 EACH 

Contact Ken on 5690949. 
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AFFtTt CATION 
TIiSHuUIG ™ 


TO : The Secretary, 
TISHUG, 

FQ Rox 149, 
FENNANT HILLS, 
N.S.W., 2120 


HOG 


become a member of the Texas 
Instruments Sydney Homecomputer User’s Group 
(TISHUG) and will abide by the constitution of 
TISHUG, a copy of which will be forwarded to 
me/us. T/we understand that I/we will receive 
leven issues of the club magazine (the Sydney 
News Digest) and access to the club Software 
Library, TISHUS Shop, Group meeting, specialty 
workshoos, and other group activities. 


T/we wish to 


T/we enclose:- 


MEMBERSHIF FEE 
ANNUAL SUBRSCRIFTION $20 


TOTAL AMOUNT DUE 


TISHUYIG SHOF MAIL— ORDER 
FORM 


FPlease foward the 
listed items to:- 


I enclose:— 
bank—-cheque 
money-—order 

- bankcard-authority 


the sum of 


TO Cur YOUR NEWS DIGEST YOU MAY USE A 
MATL—-—ORDERS, 


-the 
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IF YOu DO NOT WISH 


CLASSIFIED 


Classified Ads. 


following advertisement in 
next issue of the SND (space permitting) 
under the classification indicated. I declare 
the content to be in accordance with the Trade 
Practices Act, and resolve TISHUG of any 
liability arising from the publishing of the 
advertisment. P.,O.BOX 595, MARRICKVILLE, 2204 


Please insert the 


0 BUY ) SWAP DO SELL 


QO) PROGRAMS O MODULES 0 HARDWARE 
OGET AQUAINTED (pen pals,etc) 
CONE character per square — Including SPACES} 


FEE = $2.00 


(additional text at #0.20 per line) 


I enclose $s being 2.00 insertion fee 
and $0.20 per S30 character line (or. part 
thereof) in excess of the first 90 characters 


(included in the insertion fee). 


SIGNED: 


> 


(i) bankcard Cx 


Complete ALL details using block CAPITALS 


-_ 
number 41 916H TH TT ILE T TTT oste™_/7 _ 


first nase surname 


I HEREBY AUTHORISE TISHUG TO CHARGE TO My 


BANKCARD ACCOUNT THE SUM OF 
(words) 


er 
eee) . 
. 

. . 
. . 
: aM 
— _ 
. at 

? a> eat lems Mutat # 7 
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UNIVERSITY CO-OP BOOKSHOP lop 


Tl 99/44 COMPUTER 
FINAL BLOW-OUT 


BOOKS AND SOFTWARE 


COMPARE OUR PRICES 
EXCLUSIVE BOOKS — FINAL OFFER ] 


S.41 Basic TI Programs for the Home (Sternberg) $23.95 S.45 Get More From Your TI 99/4A (Marshall) 12.95 
S.42 Stimulating Simulations for TI 99/4A (Engel) 12.50 S.46 Terrific Games For Your TI 99/4A (Renko) 6.95 


S.43 Games & Graphics With Your TI 99/4A S.47_ 1 Speak Basic To My TI 99/4A (Jones) 17.95 
(Thompson) 20.95 S.48 Introducing Logo for the TI 99/4A (Ross) 13.95 
S.44 Fun & Games With Your TI 99/4A (Muncy) 20.95 S.49 Dynamic Games For Your TI 99/4A 16.50 


EXCLUSIVE Tl SOFTWARE — PRICES SLASHED 


PRICES FROM $19.95 


S.51 NEW! Demon Attack Game: NOW $29.95 

S.52 NEW! Dragon Fire Game: NOW 29.95 IMAGIC 
S.53 NEW! Microsurgeon Game: NOW 29.95 

S.54 NEW! Fathom Game: NOW 29.95 Ti 99/4A SOFTWARE 
S.55 Extended Basic for TI 994A: NOW ONLY 59.95 

S.56 Parsec Game 34.95 S.57 Munchman 34.95 
S.58 Car Wars 29.95 S.59 Musicmaker 29.95 
S.60 Football 29.95 S.61 Indoor Soccer 29.95 
S.62 TI Invaders 29.95 S.63 Othello 29.95 
S.64 Saturday Night Bingo 19.95 S.65 Video Chess 34.95 


A HUNDRED MORE PROGRAMS AVAILABLE! 
SEND FOR FREE PRICE LIST NOW! 


*INSPECT THESE AT YOUR CLOSEST BRANCH _—--— 
e TECHNICAL BRANCH 831 GEORGE STREET. SYDNEY PHONE: 211 0561 © 80 BAY STREET, BROADWAY. NS.W. 


~ PHONE 212 2211 © NSW INSTITUTE OF TECHNOLOGY © NSW UNIVERSITY © SYDNEY UNIVERSITY # ANU CANBERRA 
_ @ WWOLLONGONG UNI © CANBERRA.CAE. ¢ MACQUARIE UNI. RYDE ¢ ARMIDALE UNI (U.N.E.) © NEWCASTLE TECH. a 
e NEWCASTLE UNI © RIVERINA CAE. (Wagga Wagga) © MITCHELL CAE. (Bathurst) ¢ GRIFFITH UNI. (Old.) © GIPPSLAND IAE (Vic) 


{ . 
AVAILABLE BY MAI ORDER! e List and UNI Co-op Mail-Order P.O. Box 54 BROADWAY, NSW. 2007 
the following Books/Software _ Place me on your free mailing list for 12 months 
$ NAME 
. ; S ADDRESS 
Ait posture: 83 25NGW 5475 elsewhere. : STATE P/CODE 
Cheque Postal O:uer enclosed $ SIGNATURE 


TS 


or Bankcard No. Expiry . . *°CO-OP MEMBERSHIP NO | 
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